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Sottspot 4 

Denne gang har vi udvidet Softspot 
siderne, da der er kommet en del nye 
sptl 




Amiga soft 6 

Vi ser lidt pA hvad der er kommet af 
programmer til denne maskme. 



Der var en gang 11 

RUN's (aste adventuresider, hvor et 
nyt spil bliver gennemgaet. og hjaslp 



il de lassere, der er gaet i sta. 
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En diskettestatlon... 

Skal det vsere diskettestation, 
datasette. 
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Tips og Tricks 46 

Bjarne V. Jensen gfver dig en del 
nyttige tips. 
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Programsektion 17 

Denne gang med bl.a. en Database 

: MM Hi i.j ■ ' i ■ n mim * •>* iifti 



tJKATC REM FILE BUM f>ROQIftH 

mo Rtca» to currert nix 
eioeirv recorb in curie a i riu 

■TUTt RECORD IN CURIE NT Tilt 
Ul CM FTLC OR SCRCCM 
RMT It CO RUB BV FIELD 
■IIRT K.CORBI IV SELECT i ea 

dcm old riu riDN dirk 

URITC HEM riLC TO SISr 
» MtK DRIVE COftMRDS 



II ' 1 llTi 



Brugervejledning 

til programmer 37 

En udferlig brugervejledning tit pro- 
grammerne. 



Newsdesk 44 

RUN's korte nyhedsorientehng fra 
ind- og udland. 



Nseste nummer 50 

/ nseste nummer afslores fodsets- 
dagskonkurrencens vinder. 
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APUBUCATlONOf 
CW COMMUNICATIONS 



Tips, tricks og vejledning 



Kontrolprogram 18 

Brug dette, for du begynder at taste 
dine programmer ind. 



3 




FREMTIDENS FORMEL 1/ 
STOCKCAR LOB 

Dette lob fangede straks 
min interesse af en eller an- 
den grund. Det sker ikke sa 
tit, nar man ser sa mange 
forskellige spil, som jeg gor, 
og underligt nok behover 
det ikke altid at vaere de 
store overreklamerede spil, 
der fcenger. Dette spil faan- 
ger forst og fremmest, fordi 
spillet ergodt lave! og flyder 
flat, hurtigt og elegant. Det 
er beslemt heller ikke noget 
minus, at der er s-a mange 
muiigheder for al variere 
spillet. Desuden er det nu 
rart ikke a! skulle tasnke alt 
for meget en gang imellem. 

Hvad gar det ud pa? Det 
var straks vaarre, men lad 
mig prove alligevel: 

Vi er langt ude I fremti- 
den. Tidens store dille er 
ALLEYKAT-lsbene. I et 
Alleykat-lob har hver delta- 
ger en SPEEDER med ind- 
bygget (aserkanon til rSdig- 
hed. Det gaslder om at gen- 
nemfore et vist antal om- 



gange pa en bane, der kan 
variere temmelig meget. Pa 
banen er der modstandere, 
der skal tilintetgores. Des- 
uden kan der pa banen 
vaere visse forhindringer. 
som maske skal odelseg- 
ges, eller som du maske 
skal flyve over, under eller 
igennem. Del lyder egentlig 
ikke saarligt ophidsende, 
vet? Men prov selvl Da jeg 
startede afprovningen al 
dette spil, rog der 2 dage ud 
at kalenderen. 
Der er folgende mulighe- 
der: 

1 spiller 1 joystick 
2spillere 1 joystick 

2 spillere 2 joysticks 

Desuden kan det bestem- 
mes, om spillet skal vaare i 
farver eller momochromt. 
Dette er en helt klar fordel 
for folk uden farve-tv eller 
monitor. 

Jeg ved selvfolgelig ikke, 
om spillet vil appellere til dig 





pa samme made som til 
mig; men ga ned til dm for- 
handler og prov det straks. 

Titel : ALLEYKAT 
Computer : 64'eren 
Medium/Pris : 

Band/159.- kr. veil. 
Betjening : Joystick 
Fabrikat : HEWSON 



Min menlng (1-13) 




Computerbrug 


11 


Manual 


9 


(dansk) 




Betjening 


10 


Vedvarende appel 


10 


Helheden 


10 



ASTERIX OG DEN 
MAG1SKE GRYDE 

Hvem kender ikke de. 
uovervindelige gallere 
Asterix og Obelix. Nu er de 
her som computerspilhelte. 
Det lyder da meget sjovt, 
ikke? 

Opleegget til spillet meget 
kort: Den magiske gryde er 
gaet i stykker, fordi Obelix 
har sparket til den. Gryden 
er gaet i 7 stykker. Disse 
stumper er spredt ud over 
GALLIEN (han har jo man- 
ge kraefter, den buttede un- 
ge mand - ham skulle vi 
have pa landsholdet). Aste- 
rix og Obelix bliver sendt ud 
for at finde stumperne. Der 



kan ikke brygges noget su- 
persaft, far alle stumperne 
er fundet og sat sammen. 
Pa deres vej rundt i Gallien 
vil vores venner mode bade 
romere og vildsvin. Obelix 
vil kun folges med Asterix, 
hvis han har mad (lass vild- 
svin) med. Det er derfor 
nodvendigt at nedlasgge et 
vildsvin en gang imellem. 
Asterix har ogsa fael den 
smule supersaft. der var til - 
bage; men desvasrre er der 
kun til en Nile hivert! 

Ideen er jo meget siov, 
og grafikken er da ogsa ny- 
delig. Men noget af forno- 



jelsen edelcegges af den 
langsommme made, hvor- 
pa sksermbillederne dan- 
nes. Hver gang et skasrm- 
billede forlades, skal der 
dannes et helt nyt. Der er 
ikke noget med at billedet 
kan scrolle over skaarmen, 
og det tagier aitsa noget tid. 
Det er et stor! minus, der 
praager helhedsbedommel- 
sen af spillet i en negativ 
retning. 

Spillet er meget siovt. 
Men det appelerer maske 
nok mest til de yngste i fa- 
milien. 



Titel : ASTERIX 
Computer : 64'eren 
Medium/Pris : 

Band/179,- kr. vejl. 

Disk/269.- kr. vejl. 
Betjening : Joysiick 
Fabrikat : 

MELBOURNE HOUSE 



Min menlng (1-13) 




Computerbrug 


8 


Manual 


7 


Betjening 


8 


Vedvarende appel 


6 


Helheden 


7 
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FRELS JOMFRUEN 

Det er da muligt, at jeg er 
den eneste, der atdrig har 
hort om dette spil og da slet 
ikke har set det. Hverken 1 
Tivoli, pa Bakken eller i grill- 
baren. Men det er da ingen 
undskyldning for at lave en 
brugervejtedning, der er sa 
ringe som denne. Der er 1 1 
linier, der skulle forklare, 
hvad spiliet gar ud pa, og 70 
linier om hvordan spiliet 
skal loades pa forskellige 
maskiner samt tirrnaets ga- 
rantiregler!!! 



nogle vil finde det spa?n- 
dende sefv at skulle tinde 
ud af, hvad det gar ud pa, 
men ikke jeg. Spiliet foregar 
pa en kirkegard, hvor for- 
skellige udgaver af Fran- 
kenstein's Monster og an- 
dre spogelser prover at sla 
vor ridder ihjel. I mit tilfasfde 
lykkedes det hver gang. 
Der er ikke en gang forskel- 
lige svagrhedsgrader. 

Hvis der maske skulle 
findes en enkelt eller to an- 
dre. der heller ikke kender 




Utroligt darligt. Men lad 
mig cllere direkte fra bru- 
gervejledningen: "Ghosts 
'n' Goblins er den autenti- 
ske hjemmecomputerud- 
{jave af det klassiske spiMe- 
hals-spil fra CAPCOM. de 
sammme forfattere, som la- 
vede COMMANDO og 
1942. Ghost 'if Goblins er 
en klassisk kampspilsfanta- 
si med en heltemodig rid- 
der, der skal redde jomfru- 
en fra uhyrer og genfaard. 
Med overraskende og for- 
bloffende effekter og grafik. 
Dette teknisk fantastiske 
Spil er helt klart endnu en 
vinder fra FLITE/CAP- 
COM." Citatslul... Sikke da 
en gang eregeji. Det er 
utroligt, at noget firma slip- 
per den slags los pa mar- 
kedet. 

Jeg har forsogt at spille 
spiliet; men det er lldt 
svcert. nar man ingen som 
heist hjaalp har til at begyn- 
de med. Det er muligl, at 



dette "klassiske" spil, er 
mil rad til jer: kob kun spil- 
iet, hvis I har masser af tid 
og talmodighedM 



Titel : GHOST' N GOBLINS 

Computer ; 64'eren 

Mediurn/Pris : 
Band/169.- kr. vejL 
Disk/249.- kr. vejl. 

Betjening : Joystick 

Fabrikat ; ELITE 



Min mening (1-13) 

Computerbrug 7 

Manual 3 

Betjening 6 

Vedvarendeappel 3 

Helheden 5 
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AMIGA 



Aktuel software 
pa danske hylder 

Hver dag i denne tid dukker der ny software op til Amigaen. I 
denne spalte vif vi forsoge at holde trit wed importorerne a f 
software. SeJvfelgelig ser vi ogsa gerne dansk software 
reprmsenteret. Detskulle gerne vaereaitdetnye, sow 
dukker op her. 



Men vi kan godt finde pa at pille en at 
de blode pakker til side, som ser 
riglig interessant ud. for at give den 
en grundig test pa et senere tids- 
punkt. 

Klckstart 

Det er vel naturligt nok at starte med 
begyndelsen. For Commodore ar- 
bejder fortiden mens dette skrives - 
med en ny version af bade Kickstart- 
disken og med Workbench. Begge 
stykker software ertilpasset de euro- 
pceiske normer, altsa storre grafisk 
opiosntng og et andet tastatur. Sofl- 
wareudviklerne er testgruppe pa 
denne software, og forudsat at de 
ikke finder for mange fejl, vil den nye 
software vaere at finde I Amiga-pak- 
ken her i September. Der er tale om 
en meget kraftig (orbednng af Work- 
bench'en. En lang raskke fejl er rettet 
og nye ideer virkeliggjort. Hastighe- 
den er steget kraftigl og meget andet 
godt. Commodore DK har ikke planer 
om at levere bade version 1.1 og 1 .2 
med rnaskinerne. Det finder jeg er en 
dedssynd. En del software - faerdig- 
kobt — har vist sig ikke at ville kere pa 
den nye version. Man kan starte un- 
der CLI (se artikel om CLI i dette 
nummer}. hvordeogsStit korerhurti- 
gere, Man skriver blot software-nav- 
net og sa starter programme!. Prev 



evt. at se navnet med en DIR kom- 
mando. Men lilbage til dsdssynden. 
Workbench-versionerne er nemlig 
ikke nedad-kompatible. Dvs. at en ny 
version ikke supporterer de versio- 
ner, som ligger forud. Det ger f.eks. 
PC/MS DOS altid. Og det er en vee- 
sentiig forskel. Indtil Commodore far 
lost det problem, bor de levere beg- 
ge Workbench-versioner (Amiga- 
DOS) med. 

Systemkrav: standard. Importeres 
bl.a. af: Commodore. Udsalgspris: 
gratis ved systernkob 



Futd fart 

KUMA har gjort det igen. Endnu et 
stykke genialt utility-software kan ko- 
bes herhjemme. Det er en K-seka 
68K Assembler som indeholder bl.a. 
folgende features: Text Editor, 
680O0 assembler, symbolsk debug- 
ning, linje disassembler, formarteret 
linje output, absolut eller relokerbar 
kode, indbygget linker, betinget as- 
sembling og makro faciliteter. Den 
arbejder med 25.000 linjer pr. min. 
ved assembling. 

Systemkrav: standard. Importeres 
bl.a. af: PCS. Udsalgspris: 1299,- kr. 



Iboende folkefaerd 

Little Computer People - discovery 
kit, er titlen pa et stykke software, 
som er opgraderet til Amtgaen. Det 
er praecis del samme tema, som i 
f.eks. C64 versionen, men det er 
klart, at man her har brugt tale og 
blaendende god grafik. En sjov sag, 
som det nsesten gor ondt at slukke 
for. De sma folk i computeren bar det 
ikke godt, nar strammen forsvinder. 
PS: Husk at give dem nok at drikke! 

Systemkrav: standard. Importeres 
bl.a. af: PCS. Udsalgspris: 

Amiga Jam 

Instant Music er begaet af Electronic 
Arts. Og hvilken kunst. Det er et 
fremragende program, som bruger 
Amigaens hell exceptioneile musik- 
alske muligheder, Programmet ud- 
masrker sig ved at va3re utroligt bru- 
gervenligt. Det er ydedygtigt: fire in- 
strumenter samtidig og selvfelgelig 
med akkorder pa alle fire. Man kan 
jam'e sig igennem med musen, en- 
ten hjulpel af elektronikken eller helt 
pa egen hand. Man kan lave replay, 
dubbing, sktfte tempo og instrumen- 
ter midt i en session, har mere end 20 
instrument at vselge imellem - bl.a. 
en menneskestemme, etvseld af for- 
programmerede melodier i alle gen- 



rer og megel mere. Og del er ikke 
engang le-gn; Fra det sekund du har 
ladet programmet ind kan du/alle 
spille med, Komponere elter hvad du 
end vil. Det er musikkens "instant- 
matic". 

Syslemkrav: standard. Importeres 
bl.a. af: Commodore. Udsalgspris: 
549,- kr. 

Video 

De luxe serien fra Electronic Arts har 
nu faet et Video-program med. Det 
var med spaending, at jeg har ventet 
pa programmet. For det rummer mu- 
ligheder, som en ivrig videoamator 
ellers har vseret helt udelukket fra at 
fS fingre i. Med mindre han hed 
Rockefeller til efternavn. Og pro- 
grammet skufterikke. Det Kan udfore 
f.eks. vipes, 1ade, zoom, cut. Bille- 
derne kan komme fra alle mulige 
kilder f.eks. De Luxe seriens pro- 



grammer Print og Paint eller fra en 
recorder via en frame-grabler. Det 
kan bruges til tekstning og meget 
andet. Selvfolgelig er bevasgelserne 
ikke helt blode. Men man kan fa dern 
meget blode. Og rader man over 
professionelt videoudstyr, kan med 
enkelt-frame optagelser fa" et absolut 
professionelt resultat ud af anstren- 
gelserne. Billedelernenterne kan ro- 
teres og meget andet, men det tager 
lid, hvis der er tale om komplekse 
ting. Men sa kan man optage i billed- 
sekvenser. Programmet arbejder 
med opdeling af et sekund i 30 billed- 
sekvenser. Det er ogsa" ok, nar man 
arbejder med NTSC (amerikansk) 
udstyr. Men herhjemme arbejder vi 
efter PAL-normen, og der inddeles 
et sekund i 25 enheder - sakaldte 
frames. Jeg har kun provet program- 
met pa en "amerikaner-model" af 
Amigaen. Maske gar det endnu bed- 
re med PAL-versionen, men del 



skal jeg »kke kunne sige. Program- 
met er utroligt billigt Og jeg vil tro, at 
kan TV-standard problems* teses. 
vil f.eks. lokal-TV-stationerne her fa 
et vasrktaj, som de kan bruge. Hidtil 
har kun SONY lavet et program - 
uden animering som med maskine 
koster omkring 70.000 kroner. Her er 
man i gang for 20.000. Der er tre 
diske i Scettet. Kun den ene er kopi- 
beskyttet. Det betyder, at man kan 
udveksle "Videoer" f.eks. sm3 rekla- 
mespots med andre Amigaejere. 
Ogsa selv om de ikke har program- 
met. Men kun med " Maker-disken" 
kan man lave videoerne, og den er 
kopibeskyttet. 

Systemkrav: 512 Kbyte, heist to dri- 
ves. Importeres bl.a. af: Commodo- 
re. Udsalgspris: 1091 .90 kr. □ 



EPSON PRINTERE TIL LAVPRIS! 

Vi har indkobt et begr&enset parti EPSON kvalitetsprintere, sorn vi vil tllbyde vore kunder med ca. 50% raba !. 

Der er tale om fabriksny e printere, som fornylig er ble vet erstattet af xndrede model ler. 



EPSON FX80 



Ferkr, 7,400,- Q'TQC 
Engangstilbud kr. O.i 

tx. moms. 




Med pin feed, 160 kar/sek.. 6 standard skrifttyper, valsebredde 254 
mm., hojoploseliggrafik. lager 'i K. Near letter quality kan indbygges. 

12 maneders fuld garanti 

8 dages returret i original emballage 

Del er uigen tilfseldlghed, at EPSON er verdens 
ferende producent af profess ion el I e printere, 
idet de er kendt for sikkerhed, hurtighed. kvalltet, 
alsidighed og ikke minds t paladelighed. 

Installationssupport tilbydes efter regning- Kablerfra kr. 250 r «. m«m*. 

H0JBRO 
DIRECT 

Hojbro Plads 1 7, 1200 Kabenhovn K. FX. 0132 4502, UD 0132 0025 



EPSON JX80 



Fer kr. 8.400,- q QQr 
Engangstllbud kr. O.iJiJO; 

ex. moms. 




Med tractor feed . Denne hurtige og drifUsikrc matriv.printer har 
sanime facilitetersom FX80, men kan udskrive leksl i op lil 7 farver. selv 
pa samme linie. Near letter quality kan indbygges. 



Ja. jeg vil geme benyttf mig af dctlr ^:«t!afl|i«^II^^Ud , 

SrndmigO^ EPSON FX80 
m-ii.i mifi fun! rn brochure pa 
Jegonikerlilbud pa elstorreantal 

Q Bellling pr. etlerfcrav 2.5\ rabal. (kr 4.SI4.50) 




OB*Ul>n(( 

Nun 


r. vedlagi check St rabal (tr. f WH.M) 


(.kr. 4.630 20) 


Firma: 


*rt 


PoM.nt- — 


By; 




Tlf- 


PC-rype: 





Kuponen wndes lil HOJBRO DIRECT. Hajbru PI ids 17. 1200 hntienhavn K. 
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MOTORCYKEL K(FUES) 

Et superflot, larverigt og ac- 
tion-meettet racerspil fra 
EPYX Nu har jeg aldrig haft 
en motorcykel - men efter 
at have spiltet dette spil, tror 
jeg i det mindste, at jeg ved 
hvordan det ma fetes at ko- 
re pa een. 

Som man kan forvente 
det fra EPYX er bade grafik 
og lyd hell t top. 



diskversionen har mulighed 
for at vselge bane, men jeg 
savner den slernt. Der er 
tkke mulighed for at vaare 2 
spillere, det ville ellers have 
vasret en god ting: men man 
kan konkurrere mod andre 
motorcykltster, styret at 
computeren. 

Spillet POLE POSITION, 
der kom for et par ar siden, 




Skfermbilledet viser vejen 
med omliggende land- 
skaber i en meget naturtro 
gengivelse. Desuden vises 
omdrejningstaallor og 
speedometer; men lad 
vasre med at kigge for me- 
get pa dem, selv om det er 
flot lavet, for hvis du taber 
koncentrationen, ryger du 
direkte af banen. Banerne, 
der keres pa. bliver svasrere 
og svasrere, efterhanden 
som man gennnemforer en 
bane. Den version, jeg har 
haft til test, er desvserre en 
bandversion. Pa denne lig- 
ger alle banerne pa bagsi- 
den af bandet. Desveerre. 
for hvis man ikke geonem- 
ferer en bane pa mini- 
mumstiden, skal man starte 
hell forfra med den forste 
bane. Jeg ved ikke, om 



er nok det spil, der ligner 
dette mest. Dog er grafik- 
ken blevet meget bedre 
med liden, Endnu engang 
har EPYX vist, at de er i 
stand til at levere program- 
mer af hoj klasse. 

Titel : SUPER CYCLE 
Computer ; 64'eren 
Medium/Pris : 

Band/179,- kr. vejl. 

Disk/269 - kr. vejl. 
Betjening : Joystick 
Fabrikat : EPYX 



TAU-CETI 

Det er den ssedvanlige hi- 
storie, dette her. Menne- 
sket har skabt en ny koloni i 
et nyt solsystem. Pa en af 
planeterne, TAU-CETI III, 
udbryder der en slags pest. 
Mange dor, resten evakue- 
res. Vaccine udvikles efter 
et stykke tid, og en ekspedi- 
tion sendes tilbage til pla- 
neten. Straks efter deres 
ankomst til planeten modta- 
ges deres sidste melding: 
en nedmelding. Det viser 
sig. at forsvarssystemerne 
har udviklet nogle fejl. Ro- 
botterne angriber alle. Den 
eneste made at stoppe dem 
pa, er ved at nedstoppe den 
store hovedatomreaktor i 
planetens hovedstad. Op- 
gaven skal loses af en 
mand. Og som den tosse 
du er, har du meldt dig som 
frivillig. 

Det er altsa forhistorien. 
En tynd kop the, men allige- 
vel tkke darligere end sa 
mange andre spil. vi efter- 
handen har set. Pa din vej 
gennem de forskellige byer 
pa planeten kan/skal du 
uskadeliggore forskelFige 
forsvarsvaarker. Du kan fly- 
ve ind i diverse bygninger, 
hvor der muligvis er friske 



forsyninger og oplysnmger 
til dig. 

Grafikken er rimelig god, 
den smule der er. Den be- 
star for det meste af faste 
billeder. Den smule anime- 
ret grafik der er, lever pa 
ingen made op til de for- 
ventninger. man efterhan- 
den med rimelighed kan ha- 
ve til el kvalitetsspil. Lyden 
befinder sig pa samme ni- 
veau. Det lyder lidt negattvt. 
men det skal ikke opfattes 
pa den made. Selve spillet 
er bare Ikke bedre. Jeg er jo 
nok blevet noget kra?sen 
med tiden. Men se det selv 
hos din forhandler. 

Titel : TAU-CETI 
Computer : 64'eren 
Medium/Pris : 

Band/179.- kr. vejl. 

Disk/269.- kr. vejl. 
Betjening ; 

Joystick/tastatur 
Fabrikat : CRL 
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ER DU TH/EJ AF AT 
WERE VELOPDRAGEN ? 

Hvis du er, har du med dette 
spil alle muligheder for at fa 
lov ti! at opfore dig, som du 
vil, Jo vasrre, |o bedre. Ind- 
rommet. det lyder skort, og 
del er det ogsa efter min 
mening. Men ikke desto 
mindre gar spillet kun ud pa 
at fa* hovedpersonen, 
JACK, til at vsere mest mu- 
lig uartig. Du er JACK og 
skal drille og odelsegge sa" 
rneget som rnuligt uden at 
blive fanget. BKver du fan- 
get, fcir du noget sa upaeda- 
gogisk som en r...vfuld. Til 
din radighed har du bl.a. eji 
slangebssse samt det, du 
nu kan finde rundt omkring. 

Spillet appellerer ikke til 
mig pa nogen som heist 
made. Ideen er totalt fjollet 
og tjener intet formal over- 
hovedet. Grafikken er la-la, 
og brugerve'iedntngen er 
ikke til megen hjaelp. Men 



maske er der nogle af jer 
unge redder, der kan fS for- 
nojelse af dette. Kan spillet 
tjene til at mindske det hasr- 
vasrK, der findes i sarnfun- 
det, burde staten vel indko- 
be et par tusinde spil og 
stille dem til radighed for 
skolerne. 

Titel : JACK the RIPPER 
Computer ; 64'eren 
Medium/Pris : 

Band/179. - kr. vejl. 
Betjening : 

Joystick og tastatur 
Fabrikat : GREMLIN 
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TEGNESERIEHELT 
BLIVER ELEKTRONISK 

Dette spil er bygget op over 
en tegneserie, der godt nok 
aldrig har vaeret vtst i Dan- 
mark, men handlingen ad- 
skiller sig ikke i vaasentlig 
grad fra s3 mange andre 
fremtids-tegnesehehelte. 
Det er en blanding ai JENS 
LYN, BATMAN og BATT- 
LER BRITTON. 

Handlingen meget kort; 

DAN DARE sendes sam- 
men med nogle venner til 
en asteroide for at stoppe 
en eller anden gammel fjen- 
de, der truer med at spraan- 
ge jorden i luften, Vennerne 
bliver fanget, og del er nu 
op til vores heit at frelse ikke 
blot sine venner, men hele 
jordens befolkning! 

I bund og grund en histo- 
rie, der er set og afprevet 
mange gange for. Spillet fo- 
regar enten pa overfladen af 
asteroiden eller nogle gan- 
ge inde i den. Her moder 
vores helt forskellige van- 
skeiigheder, som skal over- 
vindes for at komme videre. 
Til sin hjselp har han kun 24 
granater, boksekendskab, 



sit rumkasledyr STRIPEY 
samt din hjerne og dit mod. 
Vsersagod: spillet kan 
begynde. 

Grafikken er god og be- 
vasgelserne over sksermen 
fejler heller ikke noget; men 
alligevel er del, som om 
spillet virker noget stift. eller 
sagt pa" en anden made: der 
foregar for lidt efter min 
smag. Men maske vinder 
spillet ved laangere tids 
brug. 

Titel : DAN DARE 
Computer : 64'eren 
Medium/pris : 

Band/179.- kr. vejl. 
Betjening : Joystick 
Fabrikat : VIRGIN 
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ntunma-- 




Den 1. november flytter vi til nye og storre 
lokaler. Det fejrer vi med en stribe til bud, der 
bryder alle rammer! 

AMIGA PAL version 

Kun 12.995,- 

AMIGA 

europaeisk version: RING 

AMIGA 256 K-RAM 
ekspansion: 1395,- 
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ADVANCE 
POPUL/ER 500 PC 

incl. DK tekstbehandling 
m/stavekontrol og 1 ars 
servicekontrakt med ISS. 
25% skole/udd. inst. rabat! 



Priser fra 



8850,- 



STAR NL-10 

printer m. IBM, CBM 
el. Centr. I/F 



KUN 



4095,- 




JUKI 5510 - 

superprinteren med 
180 cps og NLQ 

JUKI 5520 - 

super FARVEprinte- 
ren til f .eks. Amiga: 

Ring og fi vore JUKI priser! 

Vi forer naturligvis ogsa MODEMS. 3M DISKET- 
TE R, AMIGA SOFTWARE og meget andet - altid til 
sserdeles fordelagtige priser. Ring til RB! 

Alio priser er EXCL. morns. Der ydes 1 ars luld, auloriseret garaml 
med Iri service p3 alle vaxer 




TIL OG MED 

31. OKTOBER: 

R.B. DATA 02 24 26 58 

Postboks 28, 

2980 Kokkedal 



FRA OG MED 
1. NOVEMBER: 
R.B. DATA 01 56 43 00 
Postboks 128 
2860 Soborg 
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For mindre end 20 kr. om maneclen kan du holde dig a jour 
med alt, hvad der vedrerer dfn Commodore computer, din 
PC'er og de dermed beslaegtede produkter. 

Hvisdu tegner abonnement pa RUN, fardu bladet leveret med 
posten og sparer samtidig 20% i forhold til lessalgsprisen. Et 
arsabonnernent kosterkun kr. 236,00 for 10numre-du sparer 
altsa kr. 59,00, hvilket svarer til 2 gratis nurnre. 

Send kuponen I dag - eller ring til vor abonnements- 
af deling: (01) 95 56 95 



Ja tak! 



Jeg onsker al legne helarsabonnement pa RUN, sa jeg automatisk 
fSr bladet tilsen-dt med posien. Norrnalpris kr. 295,- Incl. moms. 

Spar 20%. Introdutctionstilbud kr. 236.- Incl. moms. 

Navn/ ti rma , 

Stilling 



Adresse. 
Poslnr. _ 



By- 



Klip kuponen ud og send den i en lukkei kuvert til 

RUN Torvegade52 1400 Kobenhavn K 



Kbtonture Venture gfobenture ^butntttn 



©er tot 
engang... 



Sidste gang sa vi p3 et adventure, 
hvortil der skulle bruges et joystick. 
Vi matte dog konkludere, at selv om 
det var et godt spil, havde det ikke ret 
rneget rned en adventure at gore. 
Denne gang ser vi naarmere pa et 
spil, hvortil der ogsa skal bruges et 
joystick, men denne gang kan jeg 
love, at der er tale om et "rigtigt" 
adventure. 



ET SPIL FOR ALLE 

Mange garvede adventure-spiliere 
vil rynke pa nassen af et adventure, 
hvortil der skal bruges et joystick. Ja. 
der er endda mange, der mener, at 
grafik ikke herer hjemme i et adven- 
ture, da ens egen fantasi skal indga 
som en del af spillet. Horer du til 
denne gruppe, er jeg sikker pa, at 
spillet "Murder on the Mississippi" 
vil fa 1 dig til a! skifte mening. 

"Murder on the Mississippi" er 
efter min mening et spil for alle. og 
ikke kun for de "underlige menne- 
sker" , der kan sidde i flere dage over 
et adventure-spil . Hvad er det sa, der 
gor dette spil til noget specielt? Ja, 
det ma nok siges at vsere den made, 
hvorpa man kontrollerer spiltet. Alle 




af Michael Nielsen 




aktioner i dette spil er styret via et 
joystick, og en hel del menuer. Man 
kan pa denne made ga rundt, man 
kan tale med de forskellige personer, 
man kan tage notater (!!) og meget 
mere. Det er noget helt specielt, som 
kreever en del tilvending, men efter et 
stykke tid er det faktisk meget beha- 
geligt. Det er faktisk svasrt at forklare 
- man er nodt til selv at prove, sa nok 
om det - og over til selve spillet. 

MURDER ON THE MISSISSIPPI 

Du er den engelske mesterdetektiv, 
Sir Charles Foxworth, der er taget pa 
et ferieophold pa fiodbaden "Delta 
Princess''. Rejsen starter i St. Louis, 
og i lobet af tre dage nar baden til 
New Orleans. Det er sa din opgave, 




sammen med Sir Charles' trofaste 
tjener, Regis Pheleps, at lose mord- 
gaden. Men hov vent lldt: Hvem er 
blevet myrdet? Ja. det er den forste 
gade, Sir Charles skal lose. For forst 
nar liget er blevet fundel, og identite- 
ten fastslaet. begynder de samtaler, 
man forer med de andre passagerer, 
at blive interessante, Det er ogsa 
■forst pa dette tidspun kt, at du far lov til 
at undersoge de forskellige kahytter i 
din jagt pa spor og beviser, De spor 
og beviser, man finder, kan man brin- 
ge med til Sir Charles' kahyt for nser- 
mere undersogelser. Man kan ogsa 
sporge nogle af de mistasnkte, hvad 
de kender til det enkelte spor. 

NOTATER ER VIGTIGE 

Under vejs i sin sogen efter den 
skyldige har man talt med mange 
personer om mange forskellige ting. 
Efter hver samtale far man lov til at 
tage notater. Man bliver praesenteret 
for samtalen i sin helhed, og det er sa 
meningen, at man skal finde det vig- 
tigste i samtalen. For det er kun mu- 
ligt at skrive en llnie i sin notesbog for 
hver samtale. Dette med at tage no- 
tater er et vigtigt led i spillet, da det er 
muligt at konfrontere de andre pas- 
sagerer/mistaankte med de enkelte 
notater. Hvis f.eks. person-X har sagt, 
at han har set person Y et mistsenke- 
ligt sted, kan det jo nok vsere meget 
genialt at tage denne oplysning med 
hen til person Y og se, hvad han/hun 
har at sige til det. Men nu ma du ikke 

fortsasttes side 14 ► 



11 



En diskettestation 
for enhver pris 

Af Michael Nielsen 




Nogel af del farste ekstraudstyr, folk 
kober III deres nyerhvervede hjem- 
mecomputer, er en diskettestation 
Jeg er solv blevet den lykkelige ejer 
af en sadan og vil her prove atfortsel- 
le lidt om de ting, man b0r overveje 
og om de fordele, man opnar. nar 
man kober en diskettestation. 

Hoi 'art .... eller hvad? 

Et af de argumenter. rnan horer, 
nar man skal til at kobe sin diskette- 
Station, er at den er meget hurtigere 
end en kassettestation. Del ma da 
ogsa siges at vaare rfgtigt, hvis de 
programmer, man skal have "loa- 
ded" ind i sin computer, er indspillet 
pa normal vis. Men nu er det mere 
reglen end undtagelsen, at et pro- 



gram er gemt uden "turbo". De fle- 
ste af de programmer, man kober pa 
kassetteband, "loader" naesten lige 
sa hurtigt som en diskette. Dette 
gaslder, nar vi taler om Commodores 
diskettestation 1541, der nok ma 
siges at vsere den mest anvendte 
diskettestation til Commodore 
64'eren. 

HVAD ER SA FORDELEN? 

Nu sidder du sikkert og taenker: Hvad 
glaade har )eg sa af en diskettesta- 
tion, hvis jeg kan fa rnin bandoptager 
til at virke lige sS godt? Til det vil jeg 
sige. at lige som det er muligl at fa 
"turbo-load" til sin bandoptager, sa 
er det ogsa muligt at fa "turbo-load" 



til sin diskettestation. Det er efter min 
mening noget at det forste, man bor 
ksbe, for pa denne made opnar man 
en megel klar forbedring af sin di- 
skettestation. Har du en gang provet 
at benytte en diskettestation med 
"lurbo", kan du tkke forestille dig. 
hvordan du har kunnet Ware dig 
uden. Det er som at ga fra en folke- 
vogn over i en Porche! Ud over den 
fordel du opnar ved en foroget ha- 
stighed, nar du henter og gemmer 
dine programmer, opnar du ogsa den 
fordel, at det er meget nemmere at 
arbejde med store datameengder pa 
en diskettestation. En diskettestation 
finder selv frem til de aktuelle data. 
Det er altsa slut med at spole frem og 
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tilbage for at finde (Set rigtige sted. 
Med en diskettestation vil du ogsS 
opn4 en fordel, som mange betragter 
som den vigligste: du far nemlig rnu- 
lighed for at arbejde med relative 
filer. Enhver, der har privet at lave 
eller arbejde med et kartotekspro- 
gram pa kassette, ved hvor besvser- 
ligt det er . En af grundene til dette er, 
at man pa en kassette kun kan bruge 
sekventielle filer; man skal Isese ln- 
formationerne i den reekkefolge, de 
er skrevet. Dette er ikke nodvendigt 
rned relative filer. Her kan du lasse en 
vilkariig post, du kan aandre et vil- 
kSrligt sted i filen og meget mere. 

Endeiig er der selvlolgelig ogsa 
den fordel, at nogle programmer - 
som regel de mere seriese - som 
kun kan k0bes pa diskette. 



COMMODORE 1 28 - IKKE KUN 
COMPUTEREN ER BEDRE1 

Jeg naevnte ovenfor, at den diskette- 
station, der hedder 1541, er meget 
langsom, hvis den Ikke er forsynet 
rned en eller anden form for turbo- 
system. Dette har i lang lid vasret et 
stasrkt kritiseret punkt over for Com- 



modore, S3 da de lavede den nye 
Commodore 1 28, lavede de ogsa en 
ny diskettestation: 1571. Denne di- 
skettestation arbejder meget hurtigt 
og kan isese dobbeltsidede disketter. 
Men tro nu ikke, at du bare kan slutte 
den til din Commodore 64 og sa. fa en 
lynhurtig diskettestation. Nar 1571 
bruges i 64-mode. arbejder den, som 
om den var en 1541. dvs. med sam- 
me sieve hastighed, sa det er kun, 
nar du arbejder i 1 28-rnode eller ar- 
bejder med CP/M. at du opnar en 
hastighedsforogelse. 



SKAL DET WERE EN 
COMMODORE DISKETTE- 
STATION? 

I de sidste par 5r er der dukket flere 
og flere Commodore kompatible di- 
skettestationer op, dvs. diskettestati- 
oner af et andet fabrikat, men som 
kan fungere sammen med Commo- 
dores hjemmecomputere. Disse dt- 
skettestationer ses fortrinsvis i ud- 
landet (laas England), men der er da 
ogsa set et par stykker her i landet. I 
mange tilfaelde er disse diskettestati- 
oner billigere end Commodores, sa 



de fleste vil nok taenke: Hvad venter 
vi pa - lad os fa fat i en sadan. Men 
pas pal 

Mange af de kompatible diskette- 
stationer, der tilbydes i dag, kan kun 
laase en brakdel af de fasrdiglavede 
programmer. Ja, der erendda nogle, 
der overhovedet ikke kan. Men hvis 
du aldrig kober fasrdige programmer, 
er det da hell fint. Dog - handen pa 
hjertet: hvem kober ikke fra tid til 
anden et fasrdigt program? Sa det er 
altsa noget, du skal vaare opmaark- 
som pa, hvis du taanker at kobe en 
"fremmed" diskettestation. 

Her til slut kan jeg da lige naavne, at 
jeg for kort tid siden s£ en ny form for 
turbo-system, nemlig en sakaldt 
"RAM-disk". Den skal efter 
sigende vasre noget af det hurtigste, 
der er set. For at fa dette til at virke, 
skal der laves nogle asndringer i ens 
1541 diskettestation. Vi nar desvaar- 
re ikke haft udstyret til test her pa 
redaktionen, sa jeg kan ikke komme 
nasrmere ind pa dette system, men 
det tegner lovende, sd det kommer vi 
muligvis ind pa i en senere artlkel.n 



kvik prassenterer: 

data PC kvalitetsprogrammer til lavpris 

(til IBM PC, XT, AT og kompatible) 



Kvik-Tekst kr. 485,00 

• PtnfeiMimell darak ickiibctundlinippro- 
pam ill markedeH lamie prn 

• Altr ikxrmlekiier p&damk 

• liulbundcn daruk hAndbog I lo Unci pa INI 
»dci Inilchaldcndc pxdafognk nrugcrvet 
Ir dnirt|tu|| tnlioduktitm i hrugtn af PC 

• Vrkpiei lil u fide rv i win jpbiui, 

• l It i h -ii'-:. i ■ tljfl '..i.' ■ "' :■■ i 

- liHl«rHc,rndie,(|cmeo||kop»ciebfi|i«u- 
vtt, irrd. Itn jcr ng Wi'kke 

- FonkclHfe tknfttypcr- undcnirepnmp, 
fed. bred. Htutm fl 

- Ccntrcnngof lijt hajtcmsfKcn 

Kin wnmrHcjde med aiulre leluibeharid- 
Unpptogjam me r 
• Kar ti.i.\ ' ;■■ Kvilt-Kalk 

Kvik-Krypto kr, 195,00 

Enkcl-normal (SED)-e»ir» krYptenngjdekrvp- 



Kvik-Kalk kr. 595,00 

• ProlesMoncti dan»k it([t»cwk (spreadsheet) 
lil mukedcu i ■ ■ ■ ■ [xH 

• Piogiamdiskctie med "Ik %k«-imick»lci pi 
dantk 

• Indbunden danak handbog i to (arvcr pi !&> 
iidcr mdc hohkndc pitdagofnk hruitenr) 
Icilning ng intrvduUcn i luugcii "t PC 

■ Vclcgnet ill undcrvivnmnhfuf 

• Ind*holifcr26kolonnei<»f SOOIinjei 
t Over VI f unkuoncr 

• Makiolunkiioner 

• Kan iamnrbetde med andre sprcodihcei- 
projinimncf <>g iekMrwh>mllin|iipii»yr;im- 
met Kvik-Tcksi 

Kvik-Filter kr. 120,00 

Pi ou am lor udjkjtvning ol d*n>kr kaiakiciti 
pi 7-h« prlnlcrr 



leg bcuillci 

«k. Kvik-TekM inci. handhog ■ ki 485.01 

' ' >tk Kvik Mlkmd hiiTdbog a kr 595,00 

.....tfk.Kvik -Filter akr 120.00 

nk. Kvik-Kiyptoa kr 195,00 

□ ScndjiJcrliprir nilotnutwin om KvikTckii 
D Send ydcrfytere inioimjtmn inn Kvik-Kalk 
D Send ydertigere information om uddannclic 
AUr pritrr n fxrl mnmotpona 

Navo . .~ , 

Firma 



Adrcwc 
Po»lnr, .. By 

Tfflefon 

Undcnkrift: . . 



Kob det hos din forhandler eller send kuponen dlrekle til Kvlk Data ApS. GortlerveJ 4. 2400 Kobenhavn NV - Tel(. 01 85 55 58 § 
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Kbtonture Venture gbUenture SBtoentun 




^ fodsat fra side 11 

torvente. at alle personer gider/vil 
svare dig pa alle dine mere eller 
mindre intelligente sporgsmal. Hvis 
en person ikke vil svare, sa prov igen 
senere. Men det at de ikke vii svare, 
kan maske ogsS va3re tegn pa, at 
han/hun er skyldig eller forsoger at 
daekke over en anden - eller prover 
han/hun bare at gore sig interessant, 
eller .... Mystikken bredersig. Det ma 
lige her til slut nasvnes, at det er en 
god ide at vsere godt torsynet med 
papir og blyant, da det er MbGET 
nodvendigt, at man tager notater i 
handen. 




Efter at jeg er begyndt at give noget 
hjaslp med spillet "Arrow of Death 1 " 
har vi faet mange sporgsmal til dette 
spil, og da vi som det er nsevnt i de 
sidste par numre, har faet mange 
gode rad til dette spil fra Ciaus Ny- 
gaard. kommer der her mere hjaelp til 
dette spil: 

1) Nar du star over tor en tigger, 
bor du huske, at han ingen penge 
har. 

2) Hvis man star ved "Dense For- 
rest" og udvlser lidt talmodighed, 
kan det jo vaere, at der sker et og 
andet!! 

3) Fsergemanden skal have noget 
for at transportere dig over floden. 
Penge har du ingen af, sa prov at give 
ham noget andet! 

4) En slave kan befries og v»ndes 
som ven. 



Walk around 
Inspect 

ExaHine evidence 



Main nenu 



5) En kampesten (pa engelsk: 
"Boulder") er for tung at tlytte ene 
mand, men med venners hjeelp gar 
det! 

Jeg har endelig rnodtaget et par 
sma tips til "Valkyrie 17". Del Koster 
ikke noget at kore i taxi ("get in 
sedan"). Nar man korer i taxi, skal 
man heist vaere "blank' 1 - Hvis man 
sveder og vil have luft under vinger- 
ne, skal man ikke lage "vest" pa. 

En hel del af de breve, vi modtager. 
indeholder mange torskellige 
sporgsmal, men ogsei en del sma 
tips, som andre kan have glsede af. 
Det er s3 min mening at samle disse 
tips op og give dem videre samlet. 
Her er nogle af dem: 

Her er et par tips til "Lord of the 
Rings". Ringen bor ikke bruges i 
leengere perioder. En bad bor man 
ikke bruge, hvis man ikke har nok 
mad. Du bor nok holde dig fra det 
rode tarn. Det er altid en god ide at 
besoge en bys ovrighedspersoner. 
En alf (elf pa" engelsk) kan hjaelpe 
med at komme over floden. 

De faste laesere af disse sider vil 
vide, at vi for et par maneder siden 
modtog el brev fra Lisbet Hansen. 
Det var det forste brev, vi modtog fra 
en pige, sa det var noget der vakte 
glaade pS redaktionen. Nu er det fan- 
tastiske sket igen. Vi har nemlig mod- 



taget brev fra Eva Rymann i Abyhoj. 
Hun har nogle sporgsmal angaende 
spillet "'Spellbound" fra Mastertro- 
nic. Disse sporgsmal giver jeg her- 
med videre til laeserne: 

1) Hvordan kommer man over 
"The pit"? 

2) Hvordan kommer man levende 
gennem "Gas room" pa forste 
etage? 

3) Hvordan kommer man over 
"The Tower" pa 4. etage? 

4) Kan Thor hjcelpe andre steder 
end i elevatoren? 

5) Hvordan kommer man gennem 
"The Wall" pa 2. etage? 

Sa mange var sporgsmalene. Jeg 
er desvasrre ikke i stand til at hjcelpe 
Eva, sa er der nogle af lasserne, der 
kan, sa skynd jer at skrive til RUN. 

Nu hvor vi har modtaget hele TO 
breve fra piger, foler vi os helt oven 
pa her pa redaktionen. Men vi vil 
meget gerne modtage endnu flere. 
"Men om du er M eller K, skrive du 
ma" - bare du husker at rneerke 
kuverten "Adventure". 

Det var sa al den hjaelp, du far for 
denne gang. Jeg haber, det kan hjsel- 
pe nogle videre. Det er forresten 
med vilje, at jeg har skrevet min hjaslp 
pa en lidt krypttsk made. Det skal jo 
ikke vasre for let, vel? 



lire 3buentttw HbUcnturt gfobentutt Venture 



HVEM ER DEN SKYLDIGE? 

Ja, her skal losningen ikke gives, 
men uden at afslore for meget. kan 
jeg godt sige. at det IKKE er butleren, 
der har gjort det. Men hvem har 
sa??? Denne adventure kan ende pa 
flere mader, Du kan have samlet nok 
beviser mod en enkeit person og 
anklage den rigtige. Hvis dette sker, 
kan |eg kun sige tillykke. Du kan ogsa 
have samlet alle beviser, men stadig 
anklage den forkerte perosn. Du kan 
ogs£ anklage den rigtige person, 
men uden beviser. I disse to tilfaalde 
kan du risikere i nattens morke at 
blive smidt ud til Mississippis altiga- 
torer, Det kan ogsa ske, at baden nar 
til New Orleans, for mordet er opkla- 
ret. Hvis dette er tilfasldet, har Sir 
Charles ltdt sit forste nederiag. Her til 
slut ma det lige nasvnes, at nar man 
sadan snuser rundt i ting, der ikke 
komrner en ved, kan man meget 
nemt en-de I "floden" med noget 
"tungt om benet", sa pas pa, nar du 
bevasger dig rundt pa morke 
steder!!! 

KONKLUSlON 

Grafikken i dette adventure ma siges 
at hare til rmddelklassen. Faktisk er 
der ikke meget grafik i spillet. Det er 
jo ogsa begrasnset, hvor mange (or- 
skellige steder, der er pa en flodbad. 

Jeg har mange gange klaget over, 
at den manual, der folger med et spil, 
er megel darlig. Denne gang er jeg 
nsdt til at prove noget hell nyt, nemlig 
at rose manualen!! Det er lykkedes 
producenten, "Activision", at lave en 
meget udforlig og let forstaelig ma- 
nual. Den er som saedvanlig pa en- 
gelsk. Det ville vaare dejligt, hvis der 
snart blev oversat nogle adventures 
til dansk, men dette sker nok ikke - 
markedet er trods alt tor Nile. Manua- 
len ber dog efter min mening over- 
S39ttes til dansk af importoren. Som 
en Kile sjov ting kan jeg da naevne, at 
der felger to manualer med, den en- 
gelske og sa en pa transk!! Sa hvis 
der er nogen. der er god til fransk, ma 
det jo lige vaare sagen! 

Alt i alt ma jeg dog sige , at det er en 
adventure, som man bor kebe. Den 



er noget helt for sig. For det forste er 
der den helt nye made at styre en 
adventure pa, og for det andet er 
selve adventuren en meget stor ud- 
fordring for selv den erfarne adventu- 
re-spiller. Det er ogsa meget godt til 
dem, der ikke harprovel en adventu- 
re for. Der er dog et enkeit minus - 
nemlig at denne adventure kun kan 
fas pa disk, men det er faktisk umuligt 
at lave den pa band pa grund af ideen 
med at man skal tage notater. Men alt 
i alt et spil jeg varmt kan anbefale. 



QUIT 

Hermed slut for adventure-siderne 
for denne gang . Der er ved at komme 
rigtig gang i adventure-spillene nu, 
hvor etteraret og vinteren er lige om 
hjornet. Det betyder, at der i ojeblik- 



ket bliver frigivet mange nye adven- 
ture-spil, og da RUN altid er med helt 
frernme. har vi besluttet, at vi i naeste 
nummer udvider adventure-siderne. 
Sa nseste gang far du ALLE de nye og 
bedste adventures, der pt. kan ko- 
bes. Jeg kan nsevne. at vi ser neer- 
mere pa et anderledes aventure. 
nemlig "Mandragore" fra franske In- 
fogrames. Mandragore er det, der pa 
engelsk hedder "Role Playing Ga- 
me", og jeg kan love dig, at deter helt 
fantastisk! I neeste nummer er der 
selvfolgelig ogsa vores faste hjaalpe- 
side, sa hvis du har et tip eller et 
sporgsmal, sa skriv til os. □ 



Pro Computer 

afholder sin »Data messe« 
pa Strandmarksvej 21 

Pro Computer er total leverandenr af PC-anlaeg 



Ring efter en speciel 
brochure eller beseg os 
i forretningen. 




F.eks: 

Pro 0konomisystem 

Fra 19.995,- 
Busy Pack okonomisystem 
Fra 39.995,- 

DSC Revisorsystem 

Fra 59.995,- 

Wordperfect (tekstbeh.) 

Dantekst 
Enable 



Mnqn B£1 

: ; > A', ' ! - 



Alle priser er exef. moms. 



Strandmarksvej 21 
2650 Hvidovre 
01785543 



IS 



Ved du ikke hvilken computer du skal vaelge? 



Sa ring: 



01 18 33 66 

/Hiboka 

MIKRDDATA 



0sterbrogade 117 - 2100 Kobenhavn 0 - tlf. 01-18 33 66 
PC-afdeling: tlf. 02 - 81 84 97 



16 




NYT KONTROLSUMSPROGRAM 



Fra nr. 1/2 1986 har vi prlntet 2) nar du har indtastet en programlin- 6) tre tegn »arviger« 
programmerne ud pa en anden je og trykker pa return, far du ©vers! \= £ 
made end tldllgere. Dette sky Ides, pa: skasrmen den kontrolsum, der "= t 
at vi I samarbejde med RUN i Vest- gerne skuMe passe med den, der star — = «— 
tyskland har faet lavet et forbedret i bladet. 

kontrolsumsprogram, der skulle 7) nar du har indlasst kontrolsum- 

give en fejlfri indtastning. 3) all hvad der star i de kantede sprogrammet og »kort« det, skal du 

parenteser er styrekoder og skal ind- taste NEW, for du indEaster dit Basic- 

Kontrolsumsprogrammel p3 nas- tastes [' henhold til nedenstaende program, 
ste side er et maskinkodeprogram, skema. 

der »k0rer<* uaf hasngigt af det Basic- 8) hvis du saver og loader dit kontrol- 

program, du er i faerd med at taste 4) CBM i programiistningerne bety- sumsprogram som et maskinkode 

ind. Du skal imidlertid vaere opmeerk- der Commodore-tasten. program, loades det med ,8,1 eller 

som pa folgende: ,1,1 og startes med SYS 49152. 
) tallet til hojre i overste programlinje 5) sma bogstaver betyder SHIFT og 
er kontrolsummen. og den skal ikke det pagasldende bogstav. 
tastes ind. 
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KONTROLSUMSPROGRAM COMMODORE 64 
DISK ETTEVERS I ON 



10 RESTORE :FOR A=49L52 TO 

49629: POKE A,234:NEXT :PRINT 
"(CLR] VENT LIDT, DATA 
INDLAESES! ! !" 
20 F=0:READ A: Y-PEEK (63)tPEEK 

(64)*256: IF A=0 THEN 200 
30 READ B,C:F0R D~A TO B: READ 

AS: IF LEN (A$)-2 THEN 90 
AO E=ASC (A$)-48-(7 AND k$>"Q" 
):IF A$<"0" OR A$>"G" OR A§> 
V' AND AS<"A" THEN 90 
50 A$=MID$ (A$,2):E=E*16+ASC 
(AS)-48-C7 AND A5>"@") 

60 



70 
80 
90 



LOO 



210 



IF AS<"0 M OR A$>"F" OR A$> 

AND A$<"A" THEN 90 
F=F+E:POKE D,E:NEXT :IF F=C 
THEN 20 

PRINT "CHECKSUMSFEJL : SKAL" 
C", VAERE"F:G0T0 100 
PRINT "INDTASTNINGSFEJL: " 

A$:Y=0 

Z=PEEK (63)+PEEK <64)*256: 
A$=STR$ (Y)+STR$ <-Z):IF Y= 
0 THEN AS=STR$ CZ) , 
110 PRINT "lDOWN]Li r, AS"|2UPl"; ; 

POKE 198,1: POKE 631.13:END 
200 PRINT " 1 DOWN 1 SLUT! ! !": PRINT 
"I DOWN] SKAL 

MASK INKODEPROGRAMMET 
INPUT "GEMMES[2SPACES]J 
' [3LEFT]";AS:IF A$<>"J" THEN 
300 

220 SYS 57812"@:49152 KORREKTOR" 

,8:POKE 193.0:POKE 194,192: 

POKE 174,222 
230 POKE 175,193:SYS 62957: 

VERIFY "49152 KORREKTOR' 
300 A$="" : INPUT [ DOWN ] START 
KONTROLSUMSPROGRAM? J 

[3LEFT]":A$:IF A$="J" THEN 

SYS 49152 
999 : 

1000 DATA 49187,49208, 2342, A9,AE, 
A2,CO,8D,02,03,8E, 03 ,03,00, 
A0,1F,B9,E2 

1001 DATA 01,99,00,04, 88, 10. F7 

1002 DATA 49323,49387.9136,40,31, 
EA, 78, A9,2E,A2,C0, 80,14,03, 
BEj 15,03.58 

1003 DATA Ag.OO.SD.E^Cl^O^O, 
A5,8C,E1 ,Cl ,86,7A,84,7B,AC, 
E0,C1,F0,13,A0 
DATA iO,B9,El,Cl,99,Fl,Cl, 
A9, AO, 99, El ,C1,88,D0,F2,8C, 
E0,C1 .20,73,00 

1005 DATA AA,F0,D3.88,84,3A,90, 55 

1006 DATA 49467,49629,19950,40, 



,8,1 



1004 



4815 

3548 
2619 
4864 

3378 
2849 
2) 18 
3013 
2700 
4388 

3342 
4261 

3478 

5764 

4675 
6582 

6007 



1991 
6332 



6106 
5541 



2231 
6096 



1007 
1008 
1009 
lOiO 
1011 
1012 
1013 



1999 
2O00 



2001 



2999 
3000 



3001 



4998 
4999 
5000 



96,A4,4C,08,AF,20,6B,A9,20, 

79,A5,84,0b!a0 ' 9 

DATA 00.84,08,84.45,84,46. 5766 

84,09,C8,BE,FF,0l,F0,38,A5, 

08,30,0C,E0,20 

DATA F0,F2,E0.3A.F0,OC,E0, 5954 

8F,FO t 2$,EO,22,D0 r O2 r 49,8&, 
09,01,85'08,8A 99 * * 
DATA A6,O9,F0,O6,OA,69,O0, 6365 
CA.DO.FA, 18,65,45,85,45,90, 

02, E6,46,E6.09 

DATA A5, 09. 29, 07, 85, 09, 10, 6099 

C2,46,08,9O,2l,A0,FF,8C,EO, 

Cl,A2, 14,20,B9 ' 

DATA CI,C8,A9,BD,99.E2,C1. 5428 

A9,BE,C8,99,E2,C1,C8,A2,45, 

20,B9,C1,A9,BB 

DATA 99.E2.C1.4C.A4.A4.84, 6286 
08, B5, 00, 85,63, B5, 01, 85,62, 
A2,90,38;20;49 

DATA BC,Z0.DF,BD,A4,08,AA, 5164 

C8,BD,00,01,FO,08,09,80,99, 

E2,C1,E8,DO,F2,60 

DATA 49152. 49186, 5131, AD, 03, 6223 

03, C9,CO,DO,09,AD,DE f Cl, AE, 
DF,C1,4C,27 

DATA C0.8D,DF,C1,AD,02,03, 5136 

8D,DE,c1,A9,A0,A2,1F,9D,E2,» 

Cl,CA,10,FA 

REM EINGABESICHERLING 

DATA 49285, 49322, 4626, AD, El, 5845 

CI, DO, 21, 8D, 20, DO, 8D, 21, DO, 

A5,DA,30,0E 

DATA O9,80.85,DA,A0,27.A9, 5995 
20,99,28,04,88, 10, FA, A6.D6, 
D0,O5,A9,ll,2O,35,EB 



DATA ,49293, 49295, 702, EA,EA, 2948 
EA, 



I kasssetteversionen skal 
fslgende linjer andres til: 

200 PRINT "[DOWN]FERTIG.*':PRINT 4926 

"[DOWN] SKAL 
MASKINKODEPROGRAMMET GEMMES 
210 INPUT "PAA KASSETTEN 3666 

[2SPACESlJl3LEFT]";A$:IF AS< 

>"J" THEN 300 
220 SYS 57812"49152 KORREKTOR" - 5738 

l,l:POKE 193,0:POKE 194,192: 

POKE 174,222 
230 POKE 175,193:SYS 62957:PRINT 5050 

"SPOL VENLIGST BAANDET 
TILBAGE OG 
240 INPUT "TRYK RETURN" :A$: 3654 

VERIFY "49152 KORREKTOR". 1 



Til Commodore 64/128 

DATAFILE 
Udvalgt fra RUN USA 



10 REM DATAFILE 3.3 (C)1983 B 

Y MIKE KONSHAK 
12 POKE 53280. 13:POKE 53281, 3861 

11:PRINT "[YEL]":GOSUB 16: 

IF X=0 THEN GOTO 66 
14 GOTO 68 469 
16 D$=CHRS (C):MR$=D$:DRS=D$; 5043 

S=0 : Bl S=DS : PW=0 : CW=0 : B$= 

CHRS (32) 
18 NC=C:NL=0:PG=0:F1=C:F2=0: 6442 

F3=C:L$=DS:RL=C : SB$=D$ : 

CR$=CHRS (13) :HN$=D$:ID$= 

DS 

20 A$=D$:C$=D$:T%=G: IS=D$:CK= 8087 
0 : 1=0 : J=0 : K-C : L=0 : M=0 : N=0 : 
RW=5 rSF=0 : Z=C : E S="EOF " 

22 EN=C:EM$=D$:ET=0:ES=0:AI$= 5443 
DS:A2$=D$:A3$=D$:S1S=D$: 

FL=C 

23 MEM=3000C : RETURN 732 

24 DIM F$(F+l),n(T+l),a(F+ 2631 
1 ) : RETURN 

26 DIM REC$(R+1 ,F+1),ML$(9, 5226 
4).PC(10),TT$(5),HCS(9), 
KmR+1 ) : RETURN 

28 REM --GET 

30 GET AS: IF A$="" THEN 30 1382 
32 RETURN 142 
34 REM --CREATE 

36 IF CKO0 THEN GOSUB 394 1312 
38 PRINT " [ CLR] [RVS, 9SPACES] 2758 

INITIALIZE DATAFILE 

[ 10SPACES | 11 
40 CLR :GOSUB 16: INPUT 11 5551 

[DOWN] HOW MANY FIELDS IN 
EACH RECORD? 0 (4LEFT]" ; 

F:IF F=0 THEN 68 
42 GOSUB 24: FOR 1=1 TO F 1351 
44 PRINT " [ HOME , 4D0WN . RV S ] 3740 

FIELD # ft ;I:PRINT "DOWN] 

TITLE ? >[ 27 SPACES ]" 

46 PRINT "LENGTH? C[27SPACES, 2133 
HOME)" 

47 PRINT ,, [5D0WNl";TAB(6):: 3393 
INPUT FS(I):IF FS(D = ' 

THEN F$(I)=">" 

48 PRINT TAB(6) ;: INPUT L%CI ) : 2481 
IF L%(I)=G THEN 68 

49 NEXT I 276 

50 REM --COMPUTE # RECORDS 

52 FOR J=0 TO F:RL=RL+L/S(J); 7304 
NEXT J:RL=RL+3*(F+1) + 5:R= 
INT ((MEM-12*(F+1)-2100)/ 
RL) 

54 PRINT "(DOWN] YOUR 3607 
SELECTIONS WILL ALLOW 
APPROX" 

56 PRINT R; "RECORDS . [ 2 SPACES, 3894 
RVS )A[ OFFjCCEPT OR |RVS]R 
|OFF]EJECT?" 

58 GOSUB 30: IF A$="R" THEN 38 1419 

59 IF AS="A" THEN GOSUB 26: 2130 
CK=1 

60 FOR 1=1 TO F:IF LEN 3689 
(F$(U)>S1 THEN S1=LEN 

62 NEXT I:GOTO 68 690 
64 REM --MENU 



66 PRINT "ICLRI |RVS] 4643 
DATAFILE 3.3 (C)1983 BY 
MIKE KONSHAK ":GOTO 70 
68 PRINT "[CLR] [ RVS, 2157 
1 1 SPACES ] DATAFILE MENU 
[14SPACES]" 
70 PRINT "[ DOWN, 5SPACES, RVS] C 3693 
OFFlREATE NEW FILE 
[2SPACES.RVS]Q|OFF]UIT 
PROGRAM 

72 PRINT "[DOWN,5SPACES,RVS]A 2776 
I OFF ] DD RECORD TO CURRENT 
FILE" 

74 PRINT " [DOWN, 5SPACES, RVS] M 3367 
[OFF]ODIFY RECORD IN 
CURRENT FILE" 
76 PRINT "|DOWN,5SPACES,RVSlD 3390 
|OFF]ELETE RECORD IN 
CURRENT FILE" 
78 PRINT "lDOWN,5SPACES,RVS|V 2410 

[0FF]IEW FILE ON SCREEN 
80 PRINT " I DOWN , 5SPACES , RVS ] S 2039 

[OFFlORT RECORDS BY FIELD 
82 PRINT "[ DOWN, 5SPACES, RVS ]P 3254 
I OFF ]R INT RECORDS BY 
SELECTION 
84 PRINT "[ DOWN, 5SPACES, RVS] R 2654 
[OFF]EAD OLD FILE FROM 
DISK" 

86 PRINT "[ DOWN, 5SPACES, RVS ]W 2495 

| OFF ] RITE NEW FILE TO DISK 
88 PRINT "[DOWN,5SPACES,RVS]<a 2652 

I OFF ] DISK DRIVE COMMANDS 
90 PRINT "[DOWN] [ RVS, 3166 
6SPACES] PRESS THE 
APPROPRIATE KEY] 7SPACES |" 
92 PRINT " I 2SPACES ! THERE ARE" 3C22 

X; "RECORDS IN MEMORY" 
94 F R>C THEN PRINT " 3784 
2SPACES JSPACE FOR";R-X; 
'MORE RECORDS [UP]" 
96 GOSUB 30: IF AS="A" THEN 2538 

GOSUB 35C:IF FL=0 THEN 124 
98 IF AS="M" THEN GOSUB 354: 2965 
IF FL=0 THEN 244 

IF AS-'D" THEN GOSUB 354: 2916 
IF FL=0 THEN 272 

IF A$="C" THEN 36 1206 
IF AS="R" THEN 170 1368 
IF AS="P" THEN GOSUB 354: 2703 
IF FL=0 THEN 358 
IF A$="V" THEN GOSUB 354: 3006 
IF FL=0 THEN 192 

IF A$="W" THEN GOSUB 350: 2990 
IF FL=0 THEN 144 

IF A$="S" THEN GOSUB 354: 2846 
IF FL=0 THEN 304 

IF A$="Q" THEN 342 1340 
IF A$= n @" THEN 462 1311 
IF FLOO THEN FL=C:GOTO 68 1728 
GOTO 96 467 
REM --ADD RECORDS 

FOR I=X+I TO R: PRINT " 5110 
I CLR] PRESS THE [RVS ] 
RETURN] OFF] KEY AFTER EACH 
ENTRY 

PRINT " PRESS I RVS] RETURN 4356 
[OFF] WITHOUT ANY ENTRY TO 
STOP [DOWN]" 
PRINT " [RVSlRECORD NUMBER 3149 

";I;"lDOWNl f ' 
FOR N=l TO F 898 
PRINT FS(N) SPC(S1-LEN 3678 
(FS(N)))"[3SPACES]>[3LEFT] 
"; : INPUT REC$(I,N) 
IF REC$(I,N)="" THEN 2717 
REC$(I,N>=">" 



100 

102 
104 
106 

108 

110 

112 

114 
1 16 
118 
120 
122 
124 



126 



128 

130 
I 32 



133 



134 
135 
136 
138 
140 



142 
144 

146 



148 
150 
152 
154 
156 
158 



159 
160 



162 

164 

165 

166 

168 
170 
172 



173 
174 



175 
176 
177 

178 
180 

182 



IF LEN (REC$( 1,N))>U(N) 

THEN GOSUB 140:GOTO 132 

IF RECS(I,N)="=" THEN 

REC$(I,N)=REC$(I-1,N) 

IF REC$(I, 1 )=">" THEN X=I- 

1 :CK=1 :GOTO 68 

NEXT N:K%( I)=I:NEXT I:X-R: 

CK=l :GOTO 68 

PRINT " [RVS.CBM 3]CANNOT 
EXCEED"+STR$ (L%(N))+" 
CHARACTERS [ OFF , YEL J " : 

RETURN 

REM --SAVE 

PRINT " 1 CLRlENTER NAME OF 

CURRENT FILE TO BE SAVED" 
PRINT "(12 CHARACTERS 

MAX ) . t 2SPACES) ANY 

EXISTING FILE" 
PRINT "WITH THE SAME NAME 

WILL BE SCRATCHED. [2DOWN) 



PRINT " 1 2SPACES 1 
INPUT "[UPl";NF$ 
THEN 68 

OPEN 15,8,15;PRI 

DF) "+LEFT$ < NFS 
: GOSUB 414:IF ET 
PRINT/M5,"R0:DF] 
(NF$,8)+ rt !OLI>=DF 
GOSUB 414: IF ET= 
OPEN 5,8,5,"0;DF 
S,W":GOSUB 414:1 
THEN 68 

PRINT#5,R;CR$;F; 
N=l TO F:PRINT#5 
CR$;LZ(N):NEXT N 
GOSUB 414: IF ET= 
FOR 1=1 TO X:PRI 
SAVING RECORD # 



"' NF$: .... 
:IF NF5= 

NT#15."SC: 
,a)+"!OLD" 
=8 THEN 68 
"+LEFT$ 

] "+NF5; 
8 THEN 68 

"+NF$+" , 
F ET=8 

CR$:X:FOR 
,F$(N); 

8 THEN 68 
NT "[DOWN] 
";l/[2UP] 



FOR N=l TO F:PRINT#5, 
RECS(K%(I) ,N):NEXT N : N EXT 
I: PRINT :GOSUB 414: IF ET= 
8 THEN 68 

FOR 1=1 TO X: PRINT "(DOWN] 
SAVING POINTERS": I ;"[ 2LIP] 
":PRINT#5. I: NEXT I 
PRINT#5,E5:GOSUB 4l4:IF 
ET=8 THEN 68 

CLOSE 5: CLOSE 15:CK=0:GOTO 
68 

REM --LOAD 

IF CKOC THEN GOSUB 394 
CLR :GOSUB 16:PRINT "ICLRl 
ENTER NAME OF FILE TO BE 
LOADED I 2DOWN ] ": INPUT NFS 
IF NFS**" THEN 68 
OPEN 15.8, 15:0PEN 5,8,5, 
"0:DFl "♦NF$+",S,R":GOSUB 
4 14: IF ET=8 THEN 68 
IF EN=62 THEN GOSUB 416: 
GOTO 68 

INPUT#5,R,F,X:GOSUB 414:IF 
ET=8 THEN 68 

GOSUB 24:GOSUB 26:FOR N=l 
TO F:INPUT#5,F$(10,n(N): 
NEXT N: GOSUB 414: IF ET=8 
THEN 68 

FOR 1=1 TO X:PRINT "[DOWN] 
READING RECORD #";I;" 
[ 2UP 1 " 

FOR N-l TO F: INPUT* 5, 
REC$(I,N):NEXT N:NEXT I: 
PRINT :GOSUB 414:IF ET=8 
THEN 68 

FOR 1=1 TO XiPRINT "[DOWN] 
READING POINTERS"; I 



2626 
3467 
3159 
2717 
4344 



3562 
3840 

3393 

2758 

5745 

5506 

4232 

4715 



1757 
3710 



5131 

5024 

2136 
1932 



1312 
4509 



977 
4982 



2022 
2541 
5218 

3674 
4323 

4905 



204 

206 

208 
21C 
212 
214 
216 

218 



[2UP]" : INPUTS, K%(i): NEXT 

I 

184 S=ST;IF SOO THEN 188 
186 INPUT#5,E$:GOSUB 414: IF 

ET=8 THEN 68 
188 CLOSE 5:CLOSE 15:GOTO 60 
19C REM --VIEW 
192 1=1 

194 IF 1=0 THEN 6b 
196 IF I>X THEN 68 
198 PRINT "[CLR] [RVSlRECORD 
NUMBER: "+STR$ (IJ+" 

[2SPACES]FILE:"+NFSt" 

[DOWN] " 

200 FOR N=l TO F:PRINT FS(N) 

SPC(S1-LEN (FS(N)))" [RVS] 
"RECS(K%(I),N):NEXT N 
202 PRINT "[DOWN] [RVS|N[OFF] 
EXT, RVS]L OFF I AST, [RVS] 
J [OFF. UMP, RVSIFIOFFJIND. 

[RVS E[0FF XIT TO MENU" 
GOSUB 30: IF A$="N" THEN 1= 
l+l :GOTO 194 

IF A$="L" THEN 1=1-1 :GOTO 
194 

IF A$="J" THEN 216 
IF A$="F" THEN 218 
IF A$="E" THEN 68 
GOTO 204 

INPUT "[DOWN ] JUMP TO 

RECORD NUMBER" ; I : GOTO 194 
PRINT "[CLR,4SPACES,RVS] 
FIND RECORDS WITH COMMON 

ITEMS [DOWN]" 
FOR N=l TO F: PRINT " [RVS] 
";N;"[OFF] ":F$(N) :NEXT N 
INPUT "[DOWN] WHICH FIELD 

IS TO BE SEARCHED? 0 
^4LEFT]";SF:IF SF=0 THEN 

IF SF<1 OR SF>F THEN PRINT 
"(3UP] ,, :GOTO 222 
PRINT "(DOWN J ENTER [ RVS | 
COMMON ITEM[ OFF ] ": PRINT " 
[DOWN] (THE ENTIRE STRING 

IS NOT REQUIRED)" 
PRINT M [DOWN 5 RVS]":F$(SF): 
11 1 OFF | INPUT TS:IF T$= 

D$ THEN 68 

FOR 1=1 TO X: PRINT "[DOWN] 

SEARCHING RECORD"; I : " 
( 2UP ] " ' ' 

IF T$=LEFT$ (REC$<KZ(I), 
SF),LEN (T$)) THEN 236 
GOTO 240 

PRINT "[CLR] RECORD #":I;" 
I DOWN" 1 



220 
222 

224 
226 

228 

230 

232 

234 
236 

237 

238 

240 
242 
244 



246 

248 
250 

252 
254 



FOR N=l TO F: PRINT FS(N) 
SPC(S1-LEN (F$(N)))" [RVS] 
m REC$(Ka(I),N):NEXT N 
PRINT ' 1 [ DOWN J [RVSlN[OFF] 
EXT RECORD":GOSUB 30 
NEXT I: GOTO 68 
REM --MODIFY 

PRINT "[CLR] MODIFY WHICH 
RECORD? ENTER [RVS]#[OFF] 
OR [RVS]A[0FF]LL[2D0WN]": 

INPUT MR$:IF MR$=D$ THEN 

68 

TF MRS="A" THEN MR$=D$: 
GOTO 254 

I=VAL (MRS):MRS=DS 

IF I>X THEN GOSUB 348: GOTO 

244 

GOSUB 256:GOTO 68 

FOR 1=1 TO X: GOSUB 256: 

PRINT "[DOWN] [RVS|N[OFF| 



1834 
21 16 

1176 

370 
950 
1011 
4119 



5455 
5828 

2375 

1885 

1380 
1515 
1277 
590 
3545 

3421 

3159 
5413 

2276 
6069 

3303 
3515 

3C56 

574 
1831 

5455 

2353 
690 
6503 



1861 

1211 
1762 

1011 
4676 




255 
256 



258 

260 

261 
262 
264 

265 

266 

266 

270 
272 

274 

276 

278 

280 
28? 



283 
284 



286 



288 



290 

292 
294 



296 



298 



300 
302 
304 



306 
308 

310 



EXT OR [RVS]EI0FF XIT": 
GOSUB 30: IF AS="e'* THEN 68 
NEXT I: GOTO 68 
PRINT "(CLR] TO MODIFY 

RECORD #";I;"\ HAKE 

CHANGES" 
PRINT " AS EACH FIELD IS 

DISPLAYED, THEN [RVS| 
RETURN [OFF, DOWN J" 
FOR N=l TO F: PRINT FS(N)": 
" : PRINT ,, [3SPACES ) RVS] n ; 
RECS(-K%( I),N) 
IF LEN (REC$(K%(I),N))>36 
THEN PRINT "[UP]"; 

PRINT "[UP] :INPUT 

REC$(K% I),N) 

IF LEN (REC$(K%(i),N))> 

L%(N) THEN GOSUB 140:GOTO 

260 

IF RECS(KZ(I),N)="=" THEN 
REC$(k£(1),N)=RECS(K%(I- 
1),N) 



IF"REC$(K%(t),N)="" 
,N)=">" 



THEN 



REC$(K%(I) 
NEXT. N:CK=i :RETURN 
REM --DELETE 

PRINT "[CLR] DELETE WHICH 
RECORD? ENTER [RVS]#[OFF] 
OR [RVS]A[OFF]LL[2DOWN]" 

INPUT DR$:IF DRS=D$ THEN 

68 

IF DRS="A" THEN DR$=D$: 
GOTO 282 

I=VAL <DR$) :DR$=D$:IF I>X 

THEN GOSUB 348:GOTO 274 

GOSUB 284:GOTO 68 

FOR 1=1 TO XrGOSUB 284; 

PRINT "[DOWN] [RVS)N|OFF] 

EXT OR [RVS]E[OFF]XIT": 

GOSUB 30: IF A$="E f ' THEN 68 

NEXT I: GOTO 68 

PRINT "| CLR] TO DELETE 

RECORD NUMBER"; I;", 

PRESS" 
PRINT " [RVS]SHLFT[OFF] 

[RVS]D[OFF] , PRESS IRVS] 
SPACE BAR [OFF] TO ADVANCE 
[ DOWN ] " 

FOR N=l TO F: PRINT F$(N) 
SPC(S1-LEN (FS(N)))" |RVS| 
"REC$(K%(I) ,N) :NEXT N 
GOSUB 30: IF A$="d" THEN 

294: rem shifted d 
ck=1 : return 

print "[ 2down] deleting 
record";i:print " | down, 

rvs] records may now be out 
of Order" 

FOR N = l TO F:REC$(ta(l), 
N)=REC$(X,N):REC$(X,N)=* M : 
NEXT N 

FOR J = l TO X:1F K%(J )=X 
THEN K%( J)=K%(X):K%(X)=C: 
X=X-l:GOTO 292 
NEXT J 
REM - - SORT 

PRINT "[CLR] [ RVS ,8SPACES] 
SORT RECORDS IN ORDER 
[9SPACES,DOWN] " 
FOR N=l TO F:PRINT " [RVS] 
";N;"[OFF] " : F$ (N ) :NEXT N 
INPUT "IDOWNJWHICH FIELD 

IS TO BE SORTED? 0 
6 ^4LEFT] ";SF:IF SP=C THEN 

IF SF>F THEN PRINT " [ 3UP | " 
:GOTO 30 8 



690 
4063 



3669 

3843 

2936 
1950 
3603 

5172 

3344 
1057 
4194 

1230 

1821 

2888 

1007 
4674 



690 
3707 



3355 



5455 



1450 

928 
5565 



5192 

5424 

278 
3177 

3159 
5717 

1697 



311 



312 

314 

316 
318 
320 
322 



323 

324 
325 

326 



328 
330 
332 
334 



336 



338 

340 
342 
344 

346 
348 



350 
352 



353 

354 
355 
356 
358 



360 
362 
364 
366 

368 

370 

372 

374 
376 
378 
380 
382 



INPUT " [DOWN, RVS lAl OFF) 
SCEND1NG OR [RVS]d[OFF] 
ESCENDING? A [4LEFT]";A$ 
PRINT "[DOWN] [RVS] PLEASE 

WAIT[OFF.DOWN]":M=X 
M=INT (M/2):IF M=C THEN 
CK=l:GOTO 68 
J=1:K=X-M 
1=J 
L=I+M 

PRINT " SORTING I 7 SPACES, 



: 1 F 



A$<> 



THEN 328 



4981 

1893 
2731 

1158 
215 
511 

4461 



5LEFT ] "; t:"[UP 
"A" THEN 325 
IF RECS(K%(I).SF)<= 
RECS(KX(L),SF 
GOTO 326 

IF RECS(K%(I) I SF)>= 
REC$(K%(L),SF) THEN 328 

ra(N)=K%(I):K%U)=K%(U; 
K%(L)=T%(N): 1=1-M:IF I>0 
THEN 320 

J.=J+1 :IF J>K THEN 314 
GOTO 318 
REM --QUIT 

PRINT * [CLR,2DOWN] | CBM 3, 4397 
RVS] YOU HAVE NOT SAVED 

YOUR CHANGES! | YEL] " 
PRINT " [ 2 DOWN] DO YOU 

REALLY WART TO QUIT? 

|RVS]Y[OFF] OR |RVS]N 
[OFF] 

GOSUB 30: IF AS="Y" THEN 
344 

GOTO 68 

IF CKOO THEN 33 
PRINT 



3950 

616 
3949 

5477 



1445 
628 



405C 



1573 



469 
1049 
2133 



[ CLR, 2DOWN] DATAFILE 
TERMINATED :END 
REM - -ERROR CHECK 

PRINT " [CBM 31NO SUCH 3537 

RECORD EXISTSlYEL] 11 : 
RETURN 

IF R>0 THEN RETURN 961 
PRINT "HOME] I CBM 3, RVS, 3682 
4SPACES]NO RECORDS OR 

FILES IN MEMORY! 5SPACES, 
YEL, OFF] " 

FOR 1=1 TO 500: NEXT I:FL= 1847 
1 : RETURN 

IF X>0 THEN RETURN 973 
GOSUB 352: RETURN 972 
REM --LOAD PRINT 

PRINT "[CLR] I RVS, 2833 
1 2 SPACES] PRINTER MAIN MENU 
[9SPACES I" 

PRINT "[2DOWN,2SPACESl 2178 

PRINT RECORDS USING: 

PRINT "[ DOWN, 6SPACES, RVS] R 2227 

[OFFlEPORTS AND LISTS 

PRINT "|DOWN,6SPACES,RVS]M 1573 

[OFF] AILING LABELS 

PRINT "I D0WN,6SPACES,RVS|U 2871 

[OFFlSER DEFINED 

SUBPROGRAM 
PRINT " DOWN , 6SPACES , RVS ] E 1910 
[OFFlXIT TO MAIN MENU 
PRINT 11 DOWN] [RVS, 3166 
6SPACES PRESS THE 

APPROPRIATE KEY[7SPACES|" 
GOSUB 30: IF AS="R" THEN 1432 
384 

IF AS="E" THEN 68 1277 
IF AS="U" THEN 386 1492 
IF AS="M" THEN 382 1475 
GOTO 372 604 
PRINT "[CLR,3DOWN,3SPACES| 5032 
LOADING MAILING LABEL 
SUBPROGRAM": LOAD " 



[2SPACES]DFMAIL",8 
384 PRINT "[CLR,3DOWN,3SPACES] 
LOADING REPORT/LISTING 

SUBPROGRAM": LOAD " 
[2SPACES ) DFREPORT" , 8 
386 PRINT " [CLR, 3DOWN] ENTER 
NAME OF SUBPROGRAM" 

388 PRINT "[DOWN]";SB$:INPUT 11 
].UP]";SB$:IF SB$=D$ THEN 

389 OPEN 15.8.15:0PEN 5,8.5, 
"0:"+SBS+ r \P f R":GOSUB 414: 
IF EN=62 THEN GOSUB 416: 
GOTO 358 

390 CLOSE 5; CLOSE 15:L0AD SB$, 



392 
394 



396 



398 
402 
402 



424 
406 
407 



4K 



411 
412 
414 



416 



418 



420 
422 



424 
426 
428 
430 

432 

434 

436 

438 

440 



442 



REM --WARNING 

PRINT "LCLR,DOWNl (CBM 3, 

RVSjTHIS WILL DESTROY THE 
FILE IN MEMORY! [YEL]" 

PRINT " [ 2DOWN 1 SAVE THE 
FILE FIRST? [RVSlYlOFF] 
OR [ RVSlN[OFF]":GOSUB 30: 

IF AS="N n THEN RETURN 

GOTO 68 

REM --NEW DISK 
PRINT "[CLR, DOWN, CBM 31 
THIS WILL ERASE THE DISK ! 
[ YEL ] 

PRINT "[DOWN] ARE YOU 

SURE? RVSlYtOFFl OR 

[RVS]N OFF] 
GOSUB 30: IF AS^'N" THEN 68 
IF A$<>"Y" THEN 68 
PRINT " I DOWN ] PRESS [RVS] 
RETURN | OFF] WITHOUT AN 

ENTRY TO EXIT" 
INPUT "( DOWN I 1 RVS] DISK 

NAME. IDlOFF] " ;HNS , IDS : IF 
HN$=DS THEN 68 
OPEN 15,8,15:PRINT#15, 
"NEWS : "+HNS+ I V , + ID$ : GOSUB 
41 4: IF ET=8 THEN 462 
CLOSE 15:C0T0 462 
REM --DISK ERROR 
INPUT#15,EN.EM$,ET,ES:IF 
(EN<20) OK (EN=62) THEN 
ET=0: RETURN 

PRINT "| DOWN] I RVS, CBM 3] 
DISK ERROR[OFF] ,, EN' , [LEFT] , 

"EMS" , "ET"! LEFT] ,"ES" 
I YEL] " :ET=8 

PRINT "[DOWN] PRESS iRVS] 
ANY KEY [OFF] TO RETURN TO 

MENU":GOSUB 30:CLOSE 5: 
CLOSE 15: RETURN 
REM --DIRECTORY 
OPEN 15,8,15:0PEN 5,8,5, 
"$0":PRINT "ICLR] ":GOSUB 
414:IF ET=8 THEN 462 
GET #5,A1$,A2S 
GET #5,Al$,A2$ 
GET #5,A1$,A2S 
IF A1SO"* THEN A0=ASC 
(A1S) 

IF A2$<>" n THEN A0=A0+ASC 
<A2$)*256 

PRINT MID$ { STRS (AO), 2); 
TAB( 3) ; 

GET #5,A2$:IF STOO THEN 
454 

IF A2SOCHRS (34) THEN 436 
GET #5,A2$:IF A2$OCHR$ 
(34) THEN PRINT " [RVS] " 
A2$"[OFF] M ; : GOTO 440 
GET #5,A2$:IF A2$=CHRS 
(32) THEN 442 



5778 

2528 
2825 

6226 

1618 

4154 
4247 

469 
2578 

2318 



L459 
1267 
4129 



3818 
5387 

1131 
3994 

4259 
4624 

4565 

938 
938 
938 
1865 

2747 

1746 

1660 

1566 
3542 

2212 



444 PRINT TAB(2C) ;;A3$="" 
446 A3$=A3$+A2$:GET #5,A2$:IF 

A2$<>"" THEN 446 
448 PRINT LEFT$ (A3$,3) 
45C GET A$: TF A$<>"" THEN 

GOSUB 458 
452 IF ST=0 THEN 426 
454 PRINT " BLOCKS FREE" ; : A0=C 
456 CLOSE 5;CLOSE 15;PRINT 

TAB(25)"PRESS (RVS]ANY KEY 

[OFF]":COSUB 30;GOTO 462 
458 GOSUB 30: RETURN 
460 REM DISK 

462 PRINT " [CLR] f RVS, 9SPACES ] 

DISK COMMANDS MENU 

[ 1 1 SPACES ] 
464 PRINT "[2DOWN,9SPACES,RVS] 

S[OFF] DISK DIRECTORY 
466 PRINT " [ DOWN , 9SPACES , RVS ] F 

[OFF )ORMAT A BLANK DISK 
468 PRINT " 1 DOWN , 9SPACES , RVS ] S 

[OFF ] CRATCH A SEQ FILE 
47C PRINT "! DOWN ,9SPACES, RVS ]R 

[OFF jE NAME A SEQ FILE 
472 PRINT "1 DOWN T 9SPACES, RVS] E 

[OFF]XIT TO MAIN MENU 
474 PRINT "[DOWN] [RVS, 

6SPACES J PRESS THE 
APPROPRIATE KEY [ 7SPACES ] 11 
476 GOSUB 3C:MR$=D$:DR$=D$ :IF 

A$="$" THEN 422 
478 IF A5= M F" THEN 402 
480 IF A$="S" THEN GOSUB 498: 

GOTO 488 
482 IF A$="E" THEN 68 
484 IF A5="R" THEN GOSUB 498: 

GOTO 493 
486 GOTO 476 

488 INPUT "[DOWN] [ RVS] SCRATCH 
FILE NAME [OFF] ; DRS : IF 

DR$=D$ THEN 462 
490 OPEN 15,8,15:OPEN 5,8,5. 

"C:"+DR$+",S,R":GOSUB 414: 

IF ET=8 THEN 462 

492 CLOSE 5:PRINT#15,"SO:"«- 
DR$: CLOSE 15:GOTO 462 

493 INPUT "[DOWN] [RVSjRENAME 

OLD FILE [0FF]";DR$:IF 
DRS=DS THEN 462 

494 INPUT "[DOWN] [RVS, 
4SPACES] TO NEW FILE [OFF|" 
;MR$:1F MRS=D$ THEN 462 

495 OPEN 15 f 8,15:OPEN 5,8,5, 
"IV+DRSAS.R^GOSUB 414: 
IF ET=8 THEN 462 

496 CLOSE 5:PRINT#]5 f "RO:"+ 
MR$+"="+DR$:OPEN 5,8,5: 
GOSUB 4I4:IF ET=8 THEN 462 

497 CLOSE 5:CLOSE 15:GOTO 462 

498 PRINT "[CLR] ENTER FILE 

NAMES EXACTLY AS SHOWN" 

499 PRINT " ON THE DIRECTORY, 

EX: DFj MAIL LIST": RETURN 



1480 
3046 

856 
1991 

874 
2564 
4131 



876 

33C1 

2353 
2412 
2173 
2275 
2809 
3166 

2824 

1491 

2024 

1277 
2115 

638 
3455 

5484 

2597 
3831 

3939 

5484 

5389 



1386 
3696 

3704 



De rtxste to programmer kere 
automatisk med DATAFILE 



1022 



1004 
1006 



1010 
1012 

1014 
1016 



1018 
1020 
1022 



1024 



1026 
1028 
1030 
1032 
1034 

1036 



103? 
104C 



1042 
1044 

1046 

1048 
1050 



DF M A I lr 



REM -DATAFILE 3.2 SUBPROGR 
AM DFMAIL BY HIKE KONSHAK 
(01983 

IF X=0 THEN PRINT "(DOWN] 

PLEASE LOAD AND RUN [RVS] 
DATAFILE [OFF | 11 : END 
TF T%=C THEN U=6 
IF LW=0 THEN LW=32 
OPEN 4,4:GOSUB 1280:GOTO 
1 1 n 2 

REM SUBPROGRAMS 

PRINT "[CLR,2DOWN,7SPACES] 
LOADING MAIN PROGRAM" 
LOAD "DATAFILE", 8 
PRINT "[CLR,2DOWN,2SPACES] 
LOADING REPORT/LISTING 

SUBPROGRAM" 
LOAD "[2SPACES)DFREPORT",8 
REM QUIT 

PRINT "[CLR,2D0WN]QUITING 
NOW WILL ERASE CURRENT 
DATA" 

PRINT "[DOWN] ARE YOU SURE 
'OU WANT TO QUIT?": PRINT 
2D OWN] [RVSIYlOFF] OR 
RVS|N[OFF] ? 
GET A?:IF AS=" n 
IF AS="N" THEN 
IF AS="Y" THEN 
GOTO 1026 
CLOSE 4:PRINT " 
SUBPROGRAM TERMINATED" 
PRINT "[ DOWN, RVS] DATAFILE 
[OFF] BY MIKE KONSHAK 
(C)1983":END 

REM SEARCH 

PRINT "[CLR] [RVS, 
11 SPACES] PRINT OPTIONS 
MENU! 8SPACES ] " 
PRINT "[DOWN,4SPACES,RVS|A 
[OFF ]LL RECORDS IN FILE 
PRINT "[ DOWN, 4SPACES. RVS |S 
[OFF ] ELECT INDIVIDUAL 
RECORD 

PRINT "[ DOWN, 4SPACES, RVS ]F 
[OFF ] 1ND RECORDS WITH 
COMMON FIELDS 



THEN U 
I 102 
334 



26 



;CLR,2DOWN] 



PRINT 
(OFFJXL 
PRINT " 
6SPACES 



DOWN, 4SPACES, RVS ]E 

TO MAIN MENU 
DOWN] [RVS, 
PRESS THE 




1062 
1064 
1066 

1068 



107C 
1072 

1074 



APPROPRIATE KEY17SPACES]" 

p- a*. — *. ■■■■ * . ; 



THEN 1052 
1098 
1066 
1074 
I 102 



REM SELECT RECORD 

INPUT "iDOWNlPRINT WHICH 

RECORD ; IS: 1=VAL (IS) 
IF I>X THEN PRINT "NO SUCH 

RECORD EXISTS, TRY AGAIN 
[3UPj";GOTO 1C66 
GOSUB 1268:GOTO 1040 

REM FIND COMMON RECORD 

S 

PRINT "I CLR, DOWN] [RVS, 
4SPACES ) FIND RECORDS WITH 



363C 



1304 
1450 
1595 



2737 

1238 
4023 



1576 
3630 

4544 



1577 
1628 
1496 
671 
3345 

369 5 



2681 

1807 
2425 

3412 

1841 
3166 

1740 
1553 
1591 
1673 
1599 
631 

2581 

4298 

1412 

3943 



108t 
109C 



COMMON ITEMS [4SPACES, 
DOWN]" 

1076 FOR N=l TO F: PRINT " [RVS] 
";N;"[OFF] ":F$(N) :NEXT N 
1078 INPUT "[DOWNjWHlCH FIELD 

IS TO BE SEARCHED"; SF 
1080 IF SF<0 OR SF>F THEN PRINT 

"[3UP]":GOTO 1078 
1082 PRINT "I DOWN 1 ENTER I RVS] 

COMMON ITEM] OFF] ":PRINT " 
[ DOWN 1 ( THE ENTIRE STRING 
IS NOT REQUIRED)" 
1084 PRINT "[DOWN,RVS] M ;F!?(SF): 
"[OFF] : INPUT T$ 
FOR 1=1 TO X 
PRINT "[DOWN] SEARCHING 

RECORD" ; I : " f 21TP] 
IF T$=LEFTS (REC$(K2(i). 
SFKLEN (T$>) THEN GOSUB 
1268 
1C92 NEXT I 
1094 GOTO L040 

1396 REM PRINT ALL RECORDS 

1098 INPUT "[CLR, DOWN] START AT 

RECORD? 1 [ jLEFTj" ; S : IF S> 
X OR S<1 THEN 1098 

1099 PRINT "[CLR, DOWN i " : FOR 1 = 
S TO X: PRINT "[UP] 

PRINTING RECORD #";!: 
GOSUB 1268:NEXT I:GOTO 
1040 

1100 REM MENU 

1102 PRLNT "[CLR] [ RVS , 8SPACES ] 
MAILING LABELS MENU 
[ 1 1 SPACES ] " 

1104 PRINT M [2DOWN,6SPACES,RVS] 
P[OFF] RE-DEFINED FORMAT 
OR" 

1106 PRINT "|DOWN,6SPACES,RVS]D 
[OFF ] EFINE NEW FORMAT" 

1108 PRINT "[DOWN,6SPACES, RVS]C 
[ OFF] RANGE LABEL SIZE" 

1110 PRINT "(2DOWN,6SPACES,RV£>] 
E[OFF]XIT TO MAIN PROGRAM 
OR" 

1112 PRINT " [ DOWN , 6SPACES , RVS ] R 
(OFF ]E PORT/LISTING 
PROGRAM" 
1114 PRINT "[DOWN,6SPACES,RVS]Q 

[OFF]UIT PROGRAM" 
1116 PRINT "[2DOWN1 [RVS, 
6S PACES] PRESS THE 
APPROPRIATE KEY[ 7SPACES ]" 
1118 GET CS:IF C$=" M THEN 1118 
1120 IF C$= H P" THEN 1220 
1122 IF CS="C" THEN GOSUB 1280: 

GOTO 1102 
1124 IF CS="E" THEN CLOSE 4: 

GOTO 1012 
1126 IF C$="R" THEN CLOSE 4: 

GOTO 1016 
1128 IF CS="D" THEN 1 136 
1130 IF CS="Q M THEN 1022 
1132 GOTO 1118 

1134 REM MAILING LIST FOR 

MAT 

1136 PRINT "[CLR] [RVS,8SPACESl 
MAILING LIST FORMAT 
[ I 1SPACES I " 
1138 PRINT "[D0WN,2SPACES]TH1S 
FORMAT USES SINGLE ROW 
LABELS . 

1140 PRINT "EACH LABEL CONTAINS 

UP TO"U-r ROWS. 
1142 PRINT "EACH ROW CAN 

CONSIST OF 1 TO 3 FIELDS. 
1144 PRINT "IF THE LENGTH OF 



3159 

2975 
2394 
6294 

2093 

699 
2563 

3255 



276 
591 

4488 



5994 

3082 

2723 

2060 
1872 
2579 

2843 

1308 
2864 

1502 
1435 
2352 

1813 

1721 

1611 
1479 
699 

284 7 

3420 

3130 
3523 
3662 



MULTIPLE ITEMS EXCEEDS 
1146 PRINT "[LEFT]" 3973 
LW"CHARACTERS, SOME DATA 
WILL BE CUTOFF" 
1148 PRINT "[DOWN, RVS] NUMBER OF 5194 
ROW5?":PRINT "?[3SPACES, 
3LEFT] " ; RW: INPUT '*[UP]";RW 
1150 IF RW>T%-1 THEN PRINT " 2613 

[3UP]":COTO I 14& 
1152 IF RW=0 THEN 1102 1168 
1154 PRINT "|CLR]CHOOSE WHICH 3549 

FIELDS GO IN EACH ROW" 
1156 PRINT "ENTER (RVS]G[0FF) 5065 
IF ADDITIONAL FIELDS ARE" 
: PR I NT "NOT DESIRED. [DOWN] 

1158 FOR N=l TO F: PRINT "[RVSl" 3079 

;N;"[OFFl ":FS(N):NEXT N 

1160 FOR J = l TO RW: PRINT " 3561 
I HOME , k DOWN J " ; TAB ( 25 ) " ROW" 
; J;"[2DOWN]" 
1162 FOR L=l TO 3: PRINT TAB( 4821 
25)"[UP]FIELD";L;" 0 

[2LEFT]":MLS(J,L) 
1164 PRINT TAB{ 32) : " [ UP] " ; : 2248 

INPUT MLS(J,L) 
1166 NEXT L 282 
1168 NEXT J 278 
1170 PRINT "[CLR,2D0WN]D0 YOU 4847 

WISH TO REVIEW YOUR 

FORMAT AND/OR" 
1172 PRINT "MAKE CORRECTIONS? 3785 
[2SPACES] PRESS [RVS]Y[OFF] 

OR [RVS]N[0FFj" 
1174 GET A§:IF A$="'' THEN 1 174 1625 
1176 IF AS="Y" THEN 1136 1514 
1178 IF AS="N" THEN 1 184 1676 
1180 GOTO 1174 683 

1182 REM SAVE FORMAT 

1184 PRINT "[DOWN, RVS 1 SAVE 3122 

FORMAT [ OFF ]?[ 1 3SPACES , 
RVS)Y[OFF] OR [RVSlN[OFF]" 
1186 GET A$:IF A$="" THEN 1186 1530 
1188 IF AS="N" THEN 1246 1678 
1190 IF A$=' r Y" THEN 1 194 1522 
1192 GOTO 1186 723 
1194 PRINT "[DOWN] SAVE UNDER 2759 

WHAT FILE NAME?" 
1196 PRINT " [ DOWN . 2SPACES ] " ; 3056 

NF$;INPUT " [UP) " ;NFS : IF 

NF5="" THEN 1102 
1198 OPEN 15,8,15:PRlNm5,"SO: 4554 

ML] "+NF$:GOSUB 1316:IF 

ET=$ THEN 1102 
1200 OPEN 5,8,5/'0:ML] "+NFS+", 4386 

S,W":GOSUB 1316; IF ET=8 

THEN 1102 

1202 PRINT#5,RW 69 7 

1204 FOR 1=1 TO RW:FOR N=l TO 3 1804 
1236 PRINT#5,ML$(I,N) :GOSUB 3347 

1316:IF ET=8 THEN 1 102 
1208 NEXT N 286 
1210 NEXT I 276 
1212 PRINT#5,"EOF":GOSUB 1316: 2862 

IF ET=8 THEN 1102 
1214 CLOSE 5: CLOSE 15 688 
1216 GOTO 1246 695 

1218 REM LOAD FORMAT 

122 0 PRINT "[2DOWN]LOAD FORMAT 3286 

FROM WHAT FILE?" 
1222 PRINT "[ DOWN, 2SP ACES)": 3056 

NF$:INPUT "[UP]" :NF$:IF 

NFS-'" THEN 1102' 

1224 OPEN 15,8,15:OPEN 5,8.5. 5800 
"0:ML] ' , +NF$+",S,R ,r :GOSUB 

I 316: IF ET=8 THEN 1 102 

1225 IF EN=62 THEN GOSUB 1318: 2211 



1226 
1228 
1230 

1232 
1234 
1236 
1238 
1240 
1242 
1244 

1246 

1248 



1250 
1252 



GOTO 11C2 

INPUT#5,RW 677 
FOR 1=1 TO RW:FOR N=l TO 3 1804 
INPUT#5,ML$(I,N):G0SUB 3327 
1316:IF ET=8 THEN 1102 
NEXT N 286 
NEXT I 276 
S=ST:IF SOO THEN 1240 1877 
INPUT#5,ES 522 
CLOSE 5:CLOSE 15 688 
GOTO 1170 619 

REM PRINT SAMPLE LABE 

LS 

PRINT "[ CLR) INSERT SINGLE 4164 
ROW TRACTOR FEED LABELS" 

PRINT "iDOWNlRUN TEST 4631 
LABELS TO HELP POSITION 
LABELS 

PRINT "[2DOWN jPRESS [RVS]T 2026 



[OFF 
PRIN' 

:off 



EST LABEL 

" [ DOWN , 6SPACES , RVS ] C 2092 
HOOSE RECORDS 



1253 PRINT " ( DOWN , 6SPACES , RVS ] E 1614 
lOFF]XIT TO MENU 

1254 GET AS: IF A$="" THEN 1254 1577 

1256 IF AS="C" THEN 1040 1529 

1257 IF AS="E" THEN 1102 1595 

1258 IF AS<>"T" THEN 1254 1404 
1260 FOR 1=1 TO RW:FOR J=l TO 4557 

LW:PRINT#4, RIGHTS ( STRS 
(J),1);:NEXT J:PRINT#4, 
BIS: NEXT I 

1262 FOR 1=1 TO T%-RW:PRINT#4. 2528 

B1$:NEXT I 
1264 GOTO 1246 695 

1266 REM PRINT LABELS 

1268 FOR J=l TO RW:F1=VAL 5527 

(ML$(J,1)):F2=VAL (ML$(J, 

2)):F3=VAL (MLS(J,3)) 
127G PRINT#4, LEFTS (RECS(K%(T), 5802 

F1)+B$+REC$(K£(I ) F2J+BS+ 

REC$(KX(l) t F3),LW) 
1272 NEXT J 278 
1274 FOR S=l TO T%-RW:PRINT#4, 2628 

BIS: NEXT S 
1276 RETURN 142 

1278 REM CHOOSE LABEL SIZE 

1280 PRINT "ICLR] I RVS, 1968 

12SPACES] LABEL SIZE 

[15SPACES,OFF]" 
1282 PRINT [ DOWN , 4SPACES , RVS ] S 2789 

[OFFlTANDARD - 5 ROWS PER 
LABEL" 

1284 PRINT "[6SPACES]15/16 INCH 3122 

BY 3 1/2 INCHES" 
1286 PRINT "1D0WN,4SPACES,RVS]L 2677 
[OFF t ARGEI4SPACES ] - 8 ROWS 

PER LABEL" 
1288 PRINT "[ 6SPACES] 1 7/16 2827 

INCH BY 3 1/2 INCHES" 
1290 PRINT "|DOWN,4SPACES,RVS]0 3000 
[OFF]THER|4SPACES]- CUSTOM 

LABEL SIZE OR" 
1292 PRINT " [ 6SPACES ] NUMBER OF 2643 

CHARACTERS PER ROW" 
1294 PRINT "[ 2DOWN] NOTE; 4154 

LABELS ARE SEPARATED BY 

ONE ROW" 

1296 PRINT " 32 CHARACTERS PER 3321 

ROW IS STANDARD" 
1298 PRINT "I DOWN] I RVS, 3166 
6SPACES] PRESS THE 
APPROPRIATE KEY[ 7SPACES) " 
1300 GET C$:1F C$="" THEN 1300 1500 
1302 IF C$="S" THEN T£=6:RW=5: 2989 

LW=3 2: RETURN 
1304 IF C$="L" THEN T&=9:RW=8: 3047 




LW=32 : RETURN 
1306 IF CS="0" THEN 1310 1656 
1308 GOTO 13C0 571 
131C INPUT " [DOWN] ENTER NUMBER 4595 
OF ROWS OK LABEL" ;RW:T%= 

RW+1 

1312 INPUT " ENTER # OF 3949 
CHARACTERS PER R0W";LW: 
RETURN 

1314 REM DISK ERROR CHECK 

1316 INPUT#15,EN\EM$,ET.ES:IF 3994 



(EN<20) OR (EN=62) THEN 
ET=0 : RETURN 
1315 PRINT "(DOWNj [RVSlDISK 



3373 



ERROR! OFF ] "EN" [LEFT] , 
EMS" ,"ET"lLEFT] ,"ES 
1320 PRINT " [DOWN] PRESS [RVS] 3327 
ANY KEY [ OFF] TO RETURN TO 
MENU" 

1322 GET A$:IF A$="" THEN 1322 1624 

1324 ET=8:CLOSE 5:CLOSE 15: 1832 

RETURN 



DF REPORT 



5G0 REM -DATAF1LE 3.3 SUBPROGR 

AM DFREPORT BY MIKE KONSHA 

K (C)1983 
522 IF X=0 THEN PRINT "[DOWN] 
PLEASE LOAD AND RUN [RVS] 

DATAFILE[OFFl":END 
534 OPEN 4,4: IF PW=G THEN PW= 

80 

506 GOSUB 4003:GOTO 614 

508 REM SUBPROGRAMS 

510 PRINT "[CLR,2DOWN,7SPACES] 

LOADING MAIN PROGRAM" 
512 LOAD "DATAFILE", 8 
514 PRINT "[CLR.2DOWN,2SPACES] 
LOADING MAILING LABEL 
SUBPROGRAM" 
516 LOAD "[2SPACES]DFMAIL",8 

518 REM QUIT ROUTINE 

520 PRINT M [CLR,2DOWN|QUITING 
NOW WILL ERASE CURRENT 
DATA" 

522 PRINT 11 [ DOWN] ARE YOU SURE 
YOU WANT TO QUIT?": PRINT 
11 2DOWN) (RVSTyIOFF] OR 
RVS]N[OFF * 
524 GET AS: IF A$=" M THEN 524 
526 IF A$="N" THEN 614 
528 IF AS="Y" THEN 532 
530 GOTO 524 

532 CLOSE 4:PRINT " [ CLR, 2D0WN] 

SUBPROGRAM TERMINATED" 
534 PRINT 
[OFF 
(C) 



556 
558 
560 

562 
564 
566 
568 

3630 570 



1870 

918 

2737 

1238 
3358 

1444 
3630 

4544 



1564 
1504 
1341 
604 
3345 

3695 



[ DOWN , RVS ] DATAF ILE 
BY MIKE KONSHAK 
983":END 

536 REM SEARCH 

538 A0=O:PRINT " [CLR] [RVS, 3827 
11SPACES 1 PRINT OPTIONS 
MENUI8SPACES]" 
540 PRINT "[DOWN,4SPACES,RVStA 1807 

[ OFF] LL RECORDS IN FILE 
542 PRINT "[D0WN,4SPACES,RVSlS 2591 
[OFF] ELECT INDIVIDUAL 
RECORDS 

544 PRINT "[DOWN,4SPACES,RVSlF 3412 
[ OFF] IND RECORDS WITH 
COMMON FIELDS 
546 PRINT "[ DOWN, 4SPACES, RVS !E 1841 

[OFFjXIT TO MAIN MENU 
548 PRINT "[DOWN (POSITION 3567 
PAPER IN PRINTER AT TOP 
OF PAGE" 

550 PRINT "PRINTER MAY STOP 3861 

DURING PRINTING IF THE" 
552 PRINT "COMPUTER NEEDS TO 3783 

REALLOCATE MEMORY . 
554 PRINT "[DOWN] [RVS, 3166 
6SPACES] PRESS THE 



572 

574 

575 

576 

578 
580 

582 
584 
586 
588 

590 

592 

594 
596 

598 



600 
60 2 
604 
606 



607 



608 



61 J 



APPROPRIATE KEY[7SPACES] M 
GET CS:IF C$ = "" THEN 5 56 
IF C$="A" THEN 6 06 
IP C$="S" THEN FL=0:GOTO 
5 70 

IF U CS="F" THEN 580 
IF C$="E" THEN 614 
GOTO 556 

REM SELECT RECORD 

INPUT " [ CLR, DOWN ] PRINT 
WHICH RECORD (iRVS]0[OFFj 
TO EXIT)" ;IS:I=VAL (IS): 

IF 1=0 THEN 890 

IF 1>X THEN PRINT "NO SUCH 
RECORD EXISTS! [ 3UP I": FOR 

S-l TO 10001NEXT S:GOTO 

570 

If"k=2 AND FL=0 THEN GOSUB 
810:GOSUB 824:GOSUB 842: 
GOSUB 888:FL=1:GOTO 570 
IF K=2 AND FL=1 THEN GOSUB 
842:GOSUB 888:G0T0 57C 
GOSUB 798:C0SUB 4034:GOTO 
538 

REM SEARCH 

PRINT "[CLR,DOWN] [RVS, 
4SPACES]FIND RECORDS WITH 

COMMON TTEMS[4SPACES, 
DOWN] " 

FOR N=l TO F: PRINT " | RVS I 
";N;"[OFFl ":F$(N):NEXT N 
INPUT " 1 DOWN I WHICH FIELD 

IS TO BE SEARCHED" : SF 
IF SF<0 OR SF>F THEN PRINT 
"[3UP)":GOTO 584 
PRINT "ENTER [RVS]COMMON 

ITEM I OFF ] ": PRINT "(THE 

ENTIRE STRING IS NOT 

REQUIRED) " 
PRINT "[RVS]";FS(SF);" 
I OFF ] "; :INPUT T$ 
IF K=2 THEN GOSUB 810: 
GOSUB 824 
FOR T=l TO X 
PRINT "[DOWN] SEARCHING 

RECORD"; I:" 2UP]" 
IF TS=LEFT$ (RECS(K%(I), 
SF) , LEN (T$)) THEN ON K 
GOSUB 798, 842 :GOSUB 888 
NEXT I 
GOTO 890 

REM PRINT ALL 

INPUT "ICLR.DOWN] START AT 

RECORD? 1 [3LEFT ] " ; S: IF S> 
X OR S<1 THEN 606 
PRINT "(CLR, DOWN] PRINTING 

HEADING": IF K=2 THEN 
GOSUB 810:GOSUB 824 
FOR I=S TO X:PRINT "[UPl 

PRINTING RECORD #";I:ON 
K GOSUB 798,842:GOSUB 888: 
NEXT I 
GOTO 890 



1744 
135 3 
2098 

1504 
1475 
632 

4562 



4942 

4563 

3194 
171 1 

3943 

3159 
297 5 
2444 
5943 

1888 

1681 

699 
2563 

4569 

276 
606 

4638 
3612 
4790 

606 



612 REM PRINT RECORDS MENU 

614 PRINT "[ CLR] [RVS,8SPACES] 

REPORT PRINTOUT MENU 

[10SPACES]" 
616 PRINT "[ DOWN, 6SPACES, RVS lL 

fOFFjlST RECORDS 
UNFORMATTED" 
6L8 PRINT "[ DOWN ,6SPACES, RVS IP 

[OFF]RE-DEFINED FORMAT OR" 

620 PRINT "[ DOWN , 6SPACES, RVS ]D 
[OFF]EFINE NEW FORMAT" 

621 PRINT "[DOWN,6SPACES,RVSlC 
TOFFlONFIGURE PRINTER" 

622 PRINT "[2DOWN,6SPACES,RVS| 
E[OFF]XIT TO MAIN PROGRAM 

OR" 



624 PR IN 
LOFF 
626 PRIN' 
[OFF 



THEN CLOSE 4: 
THEN CLOSE 4: 
THEN K=2:GOTO 



1 "[DOWN,6SPACES,RVS]M 
AILING LABEL PROGRAM" 
[ DOWN, 6 SPACES, RVS]Q 
HIT PROGRAM" 
628 PRINT " [ 2 DOWN] [RVS, 
6SPACES] PRESS THE 
APPROPRIATE KEY I 7 SPACES]" 
630 GET CS:IF C$="" THEN 630 

632 IF C$="L" THEN K=l:GOTO 
538 

633 IF C$="C" THEN GOSUB 400G: 
GOTO 614 

634 IF CS="P" THEN K=2:GOTO 
766 

636 IF CS="E" 

GOTO 5LG 
638 IF C$="M" 

GOTO 514 
640 IF CS="D" 

646 

642 IF C?="Q" THEN 520 
644 GOTO 630 

646 PRINT "[CLR. DOWN, RVS] 

REPORT SIZE[OFF] UP TO 136 
CHARACTER WIDE. " 
648 PRINT "[DOWN] PRINTER MUST 
BE INITIALIZED FOR 
WIDTHS" 
650 PRINT "GREATER THAN 80 

CHARACTERS. CHECK YOUR" 
652 PRINT "PRINTER MANUAL TO 

HOW TO PRINT 136 CHRS" 
654 PRINT "[DOWNlNUMBER OF 
CHARACTERS? : PRINT "? 
[ 3SPACES , 3 LEFT ] " : PW: INPUT 
*[UP]":PW 
656 IF PWH36 THEN 654 
658 PRINT "[CLR, DOWN, RVS] TITLE 
FORMAT [ OFF] UP TO 4 TITLE 
LINES OF" 
660 PRINT "INFORMATION AT THE 

TOP OF THE FORM." 
662 PRINT "[DOWNlNUMBER OF 

LINES?":PRINT "?[3SPACES, 
3LEFT] " ; NL: INPUT "[UP]"; 
NL:IF NL>4 THEN 662 
664 FOR J=l TO NL: PRINT "TITLE 
#";J:PRINT "? >[2SPACES, 
3LEFT]":TTS(J) 
666 IF LEN (TTS(J))>37 THEN 

PRINT " UP "; 
668 INPUT "IUP]";TTS(J):IF 

TTS(J)="" THEN TT$(J)=">' 1 
670 NEXT J 

672 PRINT "I CLR. RVS] COLUMN 
FORMAT [OFF J UP TO 8 
COLUMNS WITH 2":PRINT 
"SPACES BETWEEN COLUMNS" 
674 PRINT "[DOWNlNUMBER OF 
COLUMNS?" : PRINT "? 
I 3 SPACES , 3 LEFT] " ; NC: INPUT 



2637 

2604 

2203 
2060 
2430 
2579 

2347 
1308 
2864 

1528 
2215 

1969 

2092 

1820 

1822 

2058 

1334 
578 
3883 

4017 

3493 
4139 
4432 



1374 
4030 



3523 
6214 

3967 

2245 

3275 

278 
6932 

6063 



"|UP]":NC:IF NC>8 THEN 674 
676 FOR J=l .TO NC: PRINT 

"POSITION OF COLUMN #":J: 
PRINT M ?[3SPACES,3LEFT "; 
PC(J) 



678 INPUT 
680 PRINT 

FORMAT 



UP]";PC(J):NEXT J 

CLR. RVS J HEADING 
OFF] COLUMN 
HEADINGS CANNOT" 
682 PRINT "EXCEED WIDTH OF 

COLUMNS: [DOWN]" 
684 FOR J=l TO NC: PRINT 

"COLUMN";J; M HEADING"; 
686 IF J=NC THEN PRINT 80- 

PC(J); :GOTO 690 
688 PRINT PC(J+l)-2-PC(J)t 
690 PRINT CHARACTERS WIDE" 
692 PRINT "? >l2SPACES.3LEFTl" 
;HCS(J):INPUT "[UP]"; 
HC$U):IF HCS(J)="" THEN 
HC$(J>=">" 
694 NEXT J 

696 PRINT "[CLRjCHOOSE WHICH 
FIELDS GO UNDER THE 
COLUMNS" 

698 PRINT "ENTER [RVS]^[0FF] 

IF ADDITIONAL FIELDS ARE" 
: PRINT "NOT DESIRED. " 

7C0 FOR N=l TO F: PRINT M [RVSj" 

;N;"[OFF] ";FS(N):NEXT N 

7C2 FOR J=l TO NC:PRINT " 

[H0ME,4D0WN]";TAB( 

25 )"C0LUMN" : J ; " [ 2 DOWN ] " 
704 FOR L=l TO 3:PRINT TAB( 

25)"[UPlFIELD":L:" 0 
[2LEFT]":MLS(J.L) 
706 PRINT TAB(32>:"[UP] M :: 

INPUT MLS(J,L):NEXT L : NEXT 

706 PRINT "[CLR]DO YOU WISH TO 
SUM THE DATA IN COLUMN"* 
STRS (NC)-h"?" 

709 PRINT "THIS COLUMN MUST 

ONLY BE FORMATTED WITH" 

710 PRINT "ONLY ONE FIELD. 

ENTER [RVS] 1 [OFF] (YES) 
OR [RVSlOlOFF] (NO)" 

711 PRINT "?'';Z:INPUT "|UP)";Z 

712 PRINT "[CLR,2DOWN]DO YOU 

WISH TO REVIEW YOUR 

FORMAT AND/OR" 
714 PRINT "MAKE CORRECTIONS? 

[2SPACES1 PRESS jRVS]Y[OFF] 

OR [RVS]N[OFFr 
716 GET AS: IF A$=" rt THEN 7 16 
718 IF A$="Y" THEN 646 
720 IF A$="N" THEN 7 26 
722 GOTO 716 

724 REM SAVE FORMAT 

726 PRINT "[DOWN] [RVSlSAVE 

FORMAT [ OFF ] ? [ 1 2 SPACES , 
RVS]Y[OFF] OR [ RVS I N [ OFF ] " 
728 GET AS: IF AS=" ,N THEN 7 28 
730 IF A$="N" THEN 538 
732 IF A$="Y" THEN 736 
734 GOTO 728 

736 PRINT "[DOWN] SAVE UNDER 

WHAT FILE NAME?" 
738 PRINT "[DOWN,2SPACES]": 

NFS: INPUT "[ UP ] " :NF3 : IF 

NF$="" THEN 614 
740 OPEN 15,8, 1 5 : PRINTS I 5 , "SO : 

RP] "+NF$:GOSUB 876:IF ET= 

8 THEN 614 
742 OPEN 5,8,5,"0:RP] "+NF$+" , 

S,W":GOSUB 876:1F ET=8 

THEN 614 



5091 



1277 
4236 



2342 
3342 
2186 

1849 

2033 
5370 



278 
4121 



5014 

3079 
3791 

4821 

281 7 

4121 

4416 
3810 



1667 
4847 



3785 



1628 
1360 
1515 
620 

2865 



1453 
1523 
1359 
640 
2759 

3112 
5070 
4928 



746 FOR J=l TO NL 
748 PRINT#5 f TT$(J):GOSUB 876: 

IF ET=8 THEN 614 
752 NEXT J 
752 FOR 1=1 TO NC 
754 PRINT#5,PC(I);CR$;HCS(I): 

GOSUB 876: IF £T=8 THEN 614 
756 FOR mi TO 3 
758 PRINT#5,ML$(I,N) :GOSUB 

876:IF ET=8 THEN 614 
760 NEXT N : NEXT L : PRINT#5 , STRS 

(Z):CRS;ES:COSUB 876:IF 

ET=8 THEN 614 
762 CLOSE 5:CLOSE 15:G0T0 538 

764 REM LOAD FORMAT 

766 PRINT "[2DOWN]L0AD FORMAT 

FROM WHAT FILE?" 
768 PRINT "IDOWN^SPACES]": 
NFS:INPUT n [ UP ) " ; NFS : IF 
NF5= r,M THEN 614 
77C OPEN 15,8,15:OPEN 5,8,5, 
"G:R£] *+NFS+ , \S t R":GOSUB 
876: IF ET=8 THEN 614 

771 IF EN=62 THEN GOSUB 878: 
GOTO 614 

772 INPUT#5,PW,NL,NC:GOSUB 
876: IF ET=8 THEN 614 

774 FOR J=l TO NL 
776 INPUT#5,TT$(J):GOSUB 876: 
„_ IF ET=8 THEN 614 
778 NEXT J 
780 FOR 1=1 TO NC 
782 INPUT#5,PC(I),HC$(l):GOSUB 

876: IF ET=8 THEN 614 
784 FOR N=l TO 3 
786 INPUT#5,MLS(I,N):G0SUB 

876: IF ET=8 THEN 614 
788 NEXT NJNEXT I; INPUT#5,A1$ 5 

Z=VAL (A1S) 
790 S=ST:IF SOC THEN 794 
792 INPUT#5,ES 

794 CLOSE 5:CLOSE 15:G0T0 712 

796 REM PRINT NONFORMATTED 

LISTING 
798 PRINT#4,"[ RECORD #":I;" 
[3SPACES)] M ::F0R J=l TO 
62 :PRINT#4, -" : :NEXT J: 
GOSUB 4034 
800 FOR N=l TO F 
802 PRINT#4,F$(N)t ;FOR J=l TO 
23-LEN Cf$(N)):PRINT#4, m ." 
■ : NEXT J 
804 PRINT#4,REC$(K%(I),N) 
806 NEXT N: GOSUB 4034: RETURN 

808 REM PRINT REPORT 

810 PG=0:SS=" M :FOR J-l TO PW: 

SS=S$+B$:NEXT J 
812 FOR J=l TO NL: IF TTS(J)<> 

THEN GOSUB 818 
814 NEXT J: RETURN 

816 REM CENTER TITLE 

818 B=INT ((PW-LEN (TT$(J)))/ 

2) :IF P<>1 THEN 821 
820 PRINT#4, LEFT$ (S$,B)+ 

TT$(j);Bl$; :PG=PG+1 : RETURN 

82! PRINT#4, LEFT$ (SS.B)+ 

TTS(-J) : BIS : PG=PG+ 1 : RETURN 

822 REM POSITION HEADINGS 

824 GOSUB 838:PC(NC+I )=PW+3: 
CW=PC(2)-2-PC(l):IF PC( 1 )> 
1 THEN 828 
826 PRINTVM, LEFTS (HCS(l),CW); 

:GOTO 830 
828 PRINT#4 , LEFTS (S$,PC(1)- 
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L )+LEFT$ (HCS(1),CW): 
FOR J=2 TO NC:M=PC(J)-LEN 
( LEFTS (HC$(J-l/»PC(J)-2- 
PC(J-1)))-PCU-1) 

PRINT#4, LEFTS (S$,M)+LEFT$ 36C0 

(HC$(J),PC(J*l)-2-PC(J)); 

NEXT J:GOSUB 4G34:G0SUB 25C5 

838 :PG=PG+3: RETURN 

REM PRINT DASHED LINE 

FOR J=l TO PW:PRINT#4,"-"; 2912 
:NEXT J: GOSUB 4C34: RETURN 

REM PRINT FILE DATA 

F1=VAL (MLS( 1, 1 ) ):F2=VAL 6922 

<ML$(1,2)):F3=VAL (MLS(l f 

3)):CW=PC(2)-2-PCCl) 

IF PC( 1)>1 THEN 850 1313 

PRINT#4, LEFTS (REC$(KX(I), 6010 

Fl)+B$+REC$(K7,(I).F2)+B$ + 

RECS(K^(I),F3),CW) ; 

GOTO 854 622 

PRINT#4 1 LEFTS (S$,PC(U- 1826 

PRINTS, LEFTS <RECS(K%(I), 6010 

Fl )+B$+REC$(K%< I ) , F2)+B$+ 

RECSCK%(i),F3),CW); 

FOR J=2 TO NC:CW=PC(J)-2- 3182 

PC(J-l) 

F1=VAL (MLS(J-1,1)):F2=VAL 4799 
(MLS(J-1,2)) :F3=VAL 
(ML$(J-1,3)) 

M=LEN ( LEFTS (RECS(K2(l), 5516 
Fl )+B$-*REC$(K%( I ) . F2 )+BS + 
RECS(K%(I),F3),CW) ) 
M=PC(J)-M-PC(J-1):CW=PC(J+ 3459 
l)-2-P€(J) 

PR INT#4. LEFTS (S$,M); 1164 
F1=VAL (MLS(J, 1 ) ):F2=VAL 4521 
(ML$(J,2) ):F3=VAL (MLS(J, 
3)) 

PRINT#4, LEFTS (RECS(K%(I), 6010 
T , i) + B$+REC$(K%(1),F2) + B$ + 
REC$(KX(I),F3).CW) ; 
NEXT J: GOSUB 4034:PG=PG+1 1876 
IF PG=60 THEN FOR J«l TO 3534 
6:GOSUB 4C34:NEXT J:PG=0: 
GOSUB 824 

RETURN 142 

REM DISK ERROR CHECK 

INPUTS 15, EN. EMS ,ET,ES: IF 3994 
(EN<20) OR (EN=62) THEN 
ET=C: RETURN 

PRINT "[DOWN] [RVSlDlSK 3373 

ERROR I OFF ] "EN* [ LEFT 1 , " 
EMS'V'ET" [LEFT] , "ES 
PRINT " DOWN] PRESS [ RVS | 3327 
ANY KEY OFF) TO RETURN TO 

MENU" 

GET AS: IF AS="" THEN 882 1620 
ET=8: CLOSE 5: CLOSE 15: 1832 
RETURN 

REM ADD LAST COLUMN 

IF ZOl THEN RETURN 1092 

A0=A0+VAL (REC$(K2:<I),VAL 27C0 

(MLS(NC,1)))):RETURN 

IF ZOl THEN GOSUB 4034: 2171 

GOTO 538 

PRINT#4, LEFTS (S$,PC(NC)- 1891 

FOR 1=1 TO PW-PC(NC)+1: 3803 
PRINT#4,"-"; :NEXT IlGOSUB 
4034 

PRINT#4, LEFTS (S$ f PC(NC)- 3232 

9)+"TOTAL= "+STRS <A0) 

GOSUB 4C34;G0T0 538 1143 

REM SETUP FOR PRINTER 

PRINT "[CLR] [RVS,6SPACES] 2849 
DATAFILE EXPORTS PROGRAM 



^SPACES) 1 ' 4086 
4002 PRINT " [RVS,2SPACES] 4094 
PRINTER OR INTERFACE 
CONFIGURATION! 2 SPACES ] " 4088 
4004 PRINT "[DOWN] PRESS [RVS], I 3167 

[OFF. 2SPACES ]CARD?A, 1 525, 4090 
MPS801 

40C6 PRINT "[7SPACES,RVS]2[OFF, 3680 

2SPACESJ CARD?B , TYMAC 4092 
CONNECTION" 4094 
4008 PRINT "(ySPACES^RVSniOFF, 1330 4096 

2SPACES] 1 526" 
4010 IF POC THEN PRINT " 3823 4098 

1 2 DOWN , 3SPACES | OR 1 2S PACE S , 
RVSlSlOFFlEND PRINTER 4100 
COMMANDS" 

4012 IF POO THEN PRINT " [DOWN, 2767 

7SPACES,RVS]E[OFF]XIT TO 4102 
START 1 ' 

4014 PRINT- "I2DOWN1 [RVS, 2846 

6SPACES] PRESS THE 
APPROPRIATE KEY [6 SPACES 1 4104 
4016 GET A$:IF A$="" THEN 4016 1569 
4018 IF A$'"E" THEN RETURN 1253 
4020 IF AS="S" THEN 4044 1566 
4022 P=VAL (AS) 495 
4024 IF P=l THEN B1$=CHRS (10): 2391 4106 

GOTO 4CG0 

4026 IF P=2 THEN Bl$=CHRS (0): 2221 4108 
GOTO 4000 

4028 IF P=3 THEN B1S=CHR$ (0): 2229 4110 
GOTO 4000 

4030 GOTO 4016 669 4112 

4032 REM PRINT TERMINATOR 

4034 ON P GOTO 4036,4038,4040 1731 
4036 PRINT#4,B1S; : RETURN 978 4114 

4038 PRINT#4,Bl$: RETURN 814 4116 

4O40 PRINT#4: RETURN 604 4118 

4042 REM PRINTER COMMANDS 

4044 PRINT "[CLRl [ RVS, 8SPACES] 3167 

SEND PRINTER COMMAND 4120 
[10SPACES.0FF]" 4122 



PRINT "[DOWN] ENTER CODE, 3233 
THEN PRESS ( RVS 1 RETURN 
[OFF] " 

PRINT "[DOWN] [ RVS JRETURN 2246 
[OFF] ONLY TO QUIT [2 DOWN]" 
FOR 1=1 TO 4:PRINT "CODE*; 3830 
I;" ? * [4LEFT | ": :INPUT 

iS(D 

IF I$(I)="*" THEN 4096 1480 

NEXT I 276 

ON (1-1) GOTO 4098,4100. 2569 

4102,4104:GOTO 4106 

PRINT#4.CHR$ { VAL 2407 

(T$(1))):GOTO 4106 

PKINT#4,CHR$ ( VAL 3102 

(TS(lj)) CHR$ ( VAL 

(l$(2))) :GOTO 4106 

PRINT#4,CHR$ ( VAL 4073 

(I$(l))) CHRS ( VAL 

(IS(2))) CHRS ( VAL 

(I$(3))) :GOTO 4106 

PRINT#4.CHR$ ( VAL 4525 

(ISU ))) CHR$ ( VAL 

(IS(2))) CHRS ( VAL 

(IS<3 ) ) ) CHRS ( VAL 

(I$(4))> 

PRINT "[ 2DOWN, 10SPACES, 2285 

RV S ] A | OF F ] NOTHER CODE" 

PRINT "[ DOWN, 1 OSP ACES, RVS] 1536 

T[ OFF] EST PRINTER" 

PRINT " [ DOWN, I OSPACES, RVS] 1914 

E[OFF]XIT TO PRINT" 

PRINT "[DOWN] [RVS, 3166 

6SPACES] PRESS THE 

APPROPRIATE KEY [ 7SP ACES ] " 
GET A?:IF AS-'" THEN 4114 1457 
IF AS="A" THEN 4044 1500 
IF A5="T" THEN PRINT #4, 4984 
"ABCDEFGHIJKLMNOPQRSTUVWXY 

Z":GOTO 4114 

IF AS="E" THEN RETURN 1253 
GOTO 4114 641 



Til commodor 64/128 

SPRITE EDITOR 

Indsendt af : 

Peter Thomsen 
Padborgve j 13 
9900 Frederikshavn 

ICO REM 

1C1 REM SPRITE EDITOR 
1C2 REM 

110 PRINT CHR$ <8);CHRS (142): 

POKE 53280, 0:POKE 53281,0: 

CLR 
120 BY$= 

"oooooooooooooooooooooooo 

(CBM Hi" 
130 PRINT [ CLR | WHT , 5S PACES] 

SPRITE EDITOR. [CBM 7, DOWN] 

":FOR X=l TO 2l:PRINT BYS : 

NEXT 

140 PRINT 11 [ 24CBM Y ) " 
150 PO=1104:FOR X=832 TO 894: 

POKE X.0:NEXT 
160 V=53248:POKE V+2l.3:POKE 

V+16.3:POKE V+39,14:POKE 

V+40,14 



4060 



5447 



3636 



4947 
25 52 

4477 



170 
180 
190 

Hi " 

501 
502 
510 

520 
530 
540 
550 
600 
610 

620 

630 

640 

650 

660 
670 
690 



POKE V,10:POKE V+1,215: 
POKE 2040,I3:POKE 2041,13 
POKE V+2,10:POKE V+3.10O: 
POKE V+23,2:POKE V+29,2 
PRINT "[HOME]"; 
REM 

REM HOVED 
REM 

M1=PEEK (PO):IF Ml=160 

THEN M2=79 

IF Ml=79 THEN M2=160 

POXE PO,M2:GOSUB 600 

POKE PO,Ml:COSUB 600 

GOTO 510 

GET KEYS 

IF KEY$="[UP]" THEN Pl=PO- 
40:GOSUB 700 

IF KEY$="[DOWN|" THEN Pl= 

PO+40:GOSUB 700 

IF KEY$=" [LEFT ] " THEN Pl= 

PO-!:GOSUB 700 

IF KEY$=" [RIGHT] " THEN Pl= 

PO+l:GOSUB 700 

IF KEY$=CHRS (13) THEN 

COSUB 800 

IF KEY$="[CLR|" THEN RUN 
IF KEYS="[F1]" THEN 900 
FOR X=l TO 30:NEXT : RETURN 



700 IF PEEK (PDO160 AND PEEK 
(PI K>79 THEN RETURN 



4034 
2666 
493 

2239 

1718 
1433 
1401 
568 
600 
2413 

2221 

2211 

2019 

1560 

1156 
1467 
1 165 

2846 



710 POKE P0,M1 :PO=Pl:Ml=PEEK 4673 
(P0):IF M1=16G THEN M2=76: 
RETURN 

720 M2=l 60: RETURN 834 
800 POKE PO.M2:X=Ml:Ml=M2:M2=X 268C 
810 Y=INT UPO-1024)/40):X= 4738 

(PO-l024)-Y*40:Y=Y-2 
820 BY=832+(Y*3)+1NT (X/8):BI= 3498 
7-(X AND 7) 

X=PEEK (BY): POKE BY, PEEK 3210 
(BY) OR (2*BI):IF XOPEEK 
(BY) THEN RETURN 

POKE BY, ( PEEK (BY) AND 2336 
NOT C2"BI)):RETURN 
PRINT "[CLR]":P0KE V+21,0: 2576 
FOR X=832 TO 894 STEP 8 
PRINT "DATA "::FOR Y=X TO 1184 
X+7 

GOSUB 10GG:PRINT AS:",": 1420 
NEXT : PRINT CHRS (22): NEXT 833 



830 

840 

900 

910 

920 
930 



940 

950 

960 

970 

980 
990 



999 



tali 



INPUT "[2DOWN] PRINT 3442 
UDSKRIFT ":AS:IF LEFTS 
(A$,l)="N" THEN 990 
OPEN l,4:PRINT#l:FOR X= 2291 
832 TO 894 STEP 8 
PRINT*! ."DATA "::FOR Y=X 2831 
TO X+6:GOSUB 1000 
PRINTS I , AS ; " , "; :NEXT :Y=X+ 2822 
7:GOSUB I 0GO:PRINT#l , AS 
NEXT : CLOSE 1 513 
INPUT "[DOWNlFLERE SPRITES 4517 
[ 3SPACES] J[3LEFT]" ;AS: IF 
LEFT$ (A$,1)="N" THEN END 
RUN J 38 

A$=STR$ ( PEEK (Y)):AS= 4523 
RIGHTS (A$.LEN As5-I):A$= 
RIGHT? C ,, 000 ,, -fAS.3) 
RETURN 142 



Til cojmnodore 64/128 

FRIE BLQKKE 

Indsendt af : 

John bund 
Sibiriensvcenget 63 
5300 Kerteminde 

6 : 

7 : 

1G POKE 53280, 254:POKE 53281, 2306 
246 

20 POKE 646,14 889 
30 DIM NR%( 1000) . SS( IGOG) , 2972 

BL%(1000):T=-1 
40 PRINT " [ CLR ] " SPC(13)" 2321 

[CBM 7.RVS] FRIE BLOKKE 
[OFF] ' 

50 PRINT " [ CBM 6, DOWN]" SPC( 2484 

13)"BY JOHN LUND I CBM 7]" 
60 PRINT "[ 2 DOWN J [RVS] 1 [OFF] 1638 

SAVE DATA" 
70 PRINT "|D0WNl |RVSl2[OFFl 1239 

LOAD DATA" 
80 PRINT "1 DOWN] [RVS]3[OFF] 2491 

L(SE FRIE BLOKKE" 
90 PRINT "[DOWN] [RVSl4[OFFl 26C7 
LIST FRIE BLOKKE" 
100 PRINT "[DOWNl [RVS]5|OFF] 2107 

VALIDATE /SCRATCH" 
110 PRINT "[DOWN] [RVS]6[OFF] 1498 
PRINTER" 

120 PRINT "[DOWN] [RVS]7[OFFl 1685 

SLETTE DATA' 1 
130 PRINT "[DOWN] [RVS]8[OFF] 1637 

NUMMER ORDEN" 
140 PRINT "[DOWNl [RVS]9|OFF] 1C20 

EXIT" 

150 POKE 198,0 870 
160 GET A?;IF AS= H " THEN 160 1468 
170 A=VAL (AS): IF A<1 OR A>9 2046 
THEN 160 

180 ON A GOTO 200,280,360.650, 3644 

770,900, 1140,1280,1230 
190 GOTO 40 433 
200 REM ******* SAVE DATA **** 

** 

210 OPEN 2,8,2/*@0;BLOKKE,S,W" 2650 
220 PRINT#2,T 590 



230 FOR E=0 TO T 

240 PRINT#2,STRS ( NRX(E) ) 

250 PRINT#2,S$(E ) 

260 PRINT#2,STRS (BL%(E) ) 

2 70 NEXT : CLOSE 2: GOTO 40 

260 REM ******* LOAD DATA jWtt** 

*** 

290 OPEN 2,8,2, "<30: BLOKKE, S,R" 
300 INPUT#2,T 
310 FOR E=0 TO T 
320 INPUT#2,NR%(E) 
330 INPUT#2,SS(E) 
340 1NPUT#2,BL/!(E) 
350 NEXT : CLOSE 2: GOTO 40 
360 REM ****** L[SE FRIE BLOKK 

E ****** 
370 T=T+1 

380 POKE 198,0: INPUT "[ CLR. 

6DOWN.2RIGHT,RVSl DISK NR. 
[OFF] ;NK:NR=ABS <NR): 

NR% (T)=NR 
390 IF NR<1 THEN PRINT "[ 3UP]" 

:GOTO 380 
400 POKE 198,0: INPUT "[DOWN, 

2RIGHT-RVS] SIDE (A/B) 
[0FF]^*;S1$ 
410 IF SI$O m A" AND SIS<>"B" 

THEN PRINT "[ 3UP] M :GOT0 

400 

420 SS(T)=SIS 

430 PRINT " [CLR, 1 1 DOWN) " SPCC 
10)"INDS[T DISK M NR"[LEFT] 
" * SIS 

440 PRINT "[ 3DOWN] " TAB(30)" 
[ RVS ] RETURN! OFF ] " : POKE 
198 n 

450 GET ' AS : IF A$OCHR$ ( 13) 2207 
THEN 450 

460 OPEN l r 8,0,"$0:!\S%&" 1682 
470 FOR 1=1 TO 8: GET #1,X$: 1845 
NEXT 

480 GET #1,X$:IF XSO ,m THEN 2148 
480 

490 GET #1,XS:GET #1 .X$ 1708 
500 GET #1,X$:X=LEN (XS):IF X 2691 

THEN X=ASC (XS) 
510 GET #1,YS:Y=LEN (YS):tF Y 2912 

THEN Y=ASC (YS) 
520 L=X+Y*256: CLOSE 1 1338 
530 BL2(T)=L 747 
540 PRINT "[CLR,2DOWN.2RIGHT, 2251 

RVS] DISK NR.: [OFF] "NRUT) 
550 PRINT "[DOWN,2RIGHT,RVSl 2430 



810 
1506 

882 
1248 

7 70 



2570 
570 
810 
936 
862 
999 
770 



370 
5568 



1666 



2746 



1121 

4062 



3003 




620 

630 
640 
650 

660 
670 



680 



690 
70 0 

710 



72C 



730 
740 

75 C 

760 
770 

780 

790 

800 

81 C 

820 
830 
840 
850 
860 
870 
880 
890 

Bfafl 

910 

920 
930 

940 
950 
960 
970 

980 

990 

1 v 



SIDE: [OFF] "S?(T) 
PRINT " [DOWN, 2RIGHT,RVS] 
FRIE BLOKKE: ( OFF ] "BU(T) 
IF BL2(T)=C THEN T=T- 1 
NR=0:SIS="" 

PRINT M [3DOWN|" TAB (30)" 
[ RVS 1 RETURN! OFF J ": POKE 

198 0 

CEt'a$:IF ASOCHRS (13) 
THEN 600 

PRINT "[CLR,2D0WN]" SPC( 
13)"F0RTS[TTE ?":POKE 198, 

*v 

GET AS: IF A$<>"J" AND ASO 

"N" THEN 620 

IF A$="N" THEN 40 

GOTO 370 

REM ****** LIST FRIE BLOKK 

E ****** 

IF T<0 THEN 40 
PRINT " [ CLR] " SPC(13) M 
[RVS] FRIE BLOKKE [RVS, 
2 DOWN] 

PRINT "[3SPACES]NR. 

| 2 SPACE S ] S IDE [ 4SPACES J FR. 

BL. [DOWN] 
FOR A=0 TO T 
PRINT TAB(3)NR%(A) TAB( 
9)SS(A) TAB(16)BL%(A) 
IF AO0 THEN IF A/10=INT 
(A/10) THEN GET AS: IF A$<> 
CHRS (13) THEN 710 
IF AO0 THEN IF A/10=INT 
(A/10) THEN PRINT " [CLR, 
2DOWN. 3 SPACES ]NR . [ 2 SPACES ] 
S1DE[4SPACES]FR. BL.[DOWN] 

NEXT 

POKE 19S,0:PRINT TABOO)" 

|RVS]RETURN[OFF| " 

GET AS: IF AS<>CHRS (13) 

THEN 750 

GOTO 40 

REM ****** VALIDATE / SC RATC 

H ****** 

PRINT "[CLR]" SPC(ll)" 
I RVS] VALIDATE/ SCRATCH " 
PRINT "12D0WN,2RIGHT,RVS| V 
I OFF ] AL1DATE" 
PRINT "[DOWN,2RIGHT,RVS]S 
[OFF] CRATCH" 

GET AS: IF A$<>"V" AND ASO 

"S" THEN 810 

OPEN 15,8,15 

IF A$= ,r S" THEN 860 

PRINT#15,"V" 

GOTO 890 

PRINT "[7DOWN]" 

INPUT "S:":SRS 

PRINT#J 5 j"S:" + SR$ 

CLOSE 15:GOTO 40 

REM ****** PRINTER ****** 

PRINT "[CLR, DOWN. RIGHT, 

RVS ] ANTAL KOPIER* 

GET KOS:IF KO$="" THEN 920 

IF VAL (KO5X0 OR VAL 

(KO$)>9 THEN 92C 

IF VAL (KOS)=0 THEN 40 

OPEN 4.4 

FOR P=l TO VAL (KOS) 
PRINT#4,CHR$ (16)"13FRIE 

BLOKKE . " 
PRINT#4,CHRS (I6)"13 
112CBM T ] 11 
PRINT#4,CHR$ (10) 
PRINTS, CHRS (16)"02DISK 

NR.": 



3046 

1411 
1324 



2203 
3318 

2716 

1292 
588 



910 
2156 



2126 



802 
2606 

4233 



4813 



130 
2706 

2336 

433 

2459 

1696 

1676 

2529 

1 060 
1405 
931 
606 
765 
913 
1300 
977 

2059 

1673 
2689 

1531 
600 
1376 
2385 

2759 

822 
2417 



1010 
1020 

1030 
1040 
1050 

1060 

1070 



1090 

HOC 

1110 

1120 
1130 

1140 

1150 

1160 

1170 
1 180 

1190 
1200 
1210 



122C 

1230 
1240 



1250 

1260 
1270 
1280 

1290 



1300 

1310 

1320 

1330 
1340 

1350 

136C 

1370 
138C 

139C 



1410 
1420 



PRINT#4,CHR$ (16)"12SIDE M ; 
PRINT#4,CHRS (16)"19FRIE 

BLO KKE 
PRINT#4.CHR$ (10) 
FOR KO=0 TO T 
PRINTS, CHRS (16)"05" 
NR%(KO) ; 

PRINT#4,CHRS U6)"12" 
SS(KO): 

PRINT#4,CHRS C 16 )"20" 

BL%(KO) 

NEXT 

PRINT TAB( 30 )"[ RVS 1 RETURN 
[OFF ] " 

GET AS: IF A$OCHR$ (13) 
THEN 1IO0 

PRINT "[CLR,9DOWNi":NEXT 
P: CLOSE 4 
GOTO 40 

REM ****** SLETTE DATA *** 

*** 

PRINT "[CLR]" SPCU3)" 
I RVS SLETTE DATA [OFF ] " 
INPU" "[2D0WN,RVS]DISK NR. 

[OFF]":N* 
INPUT "[DOWN, RVS] SIDE 

[OFF]":BS 
FOR L0=0 TO T 
IF N%=NR%(L0) AND BS= 
SS(L0) THEN 1200 
NEXT 

FOR L1 = L0 TO T 
NR%(L1)-NR%(L1+1 ):SS(L1)= 
SS(U + l):BU(Ll)=BUai+ 
1):NEXT LI 

NR%(T)=C:SS(T)= M ":BU(T) = 

0:T=T-1 :GOTO 40 

REM ****** EXIT ****** 

PRINT M [ CLR, 2 DOWN, RIGHT, 

RVS ] ER DU S1KKER (J/N) 

[OFF]":POKE 198,0 

GET AS: IF ASO"J" AND ASO 

"N" THEN 1250 

IF AS="N" THEN 40 

SYS 647 38 

REM ****** NUMMER ORDEN ** 

**** 

PRINT "[CLR]" SPC(ll)" 
[RVS] VENT ET 0JEBLIK 
lOFFl" 

FOR V=0 TO T : FOR Vl=0 TO 
T-l 

IF NRSUVl PNR%(V1 + ] ) THEN 
GOSUB 1340 

IF NR%(V1 )=NR%(V1+1 ) THEN 

GOSUB 1380 

NEXT VI .VrGOTO 40 

Q12*MR%(V1):NR%(VI)= 

NRX(V1+1 ):NR%(V1+1 )=QIX 

Q2$=S$(V1):S$<V1)=S$(V1+ 

?):S$(V1+1)«Q2$ 

Q3X=8L%<Vl):Bii(Vi)= 

BL%(V1+1 ) :BLX(Vl+l )=Q32 

RETURN 

IF S$(Vl)<S$(Vl+l> THEN 
RETURN 

N1%=NR%(V1):NR%(V1)= 
NR%(V1 + 1);HR%<VI+1)-NU 
S1S=SS(V1):SS(V1)=SS(VI+ 

ij:sffvi+n«sii 

B1%-B1%<V1 ):Bl%(Vl)= 
B1%(V1 + 1):BU<V1 + 1)=B1% 
RETURN 



1878 
2389 

822 
661 
2319 

2057 

1957 

130 
1858 

2521 

1581 

433 

2035 

1941 

1276 

794 
2886 

130 
911 
5653 

3647 

354 3 

2734 

1292 
717 

2923 

2291 

2460 

2462 

939 
4652 

3916 

4267 

142 
1961 

4646 

3916 

4046 

142 



Til Commodore 64/128 

SWISH i 
Udvalgt fra RUN USA 



15 

23 
25 

30 

35 

42 
45 

52 

55 

6 0 

65 

70 
75 



85 

90 



95 

100 



105 



IK 



115 



120 
125 



POKE 53281 , 13: POKE 53280,5 

FOR T=0 TO 8: READ H(T) , 

L(T),D(T):NEXT 

IF PEEK (12288)=7 THEN 40 

PRINT "[CLR.CBM 4|PLEASE 

WAIT 11 SECONDS" 
FOR T=0 TO 319:READ A: POKE 
12288+T.A:NEXT 
FOR T=49I52 TO 50155 : READ 
A: POKE T, A: NEXT 
V=53248:P0K£ V+21,17 
FOR T=0 TO 4: POKE 2340+T, 
192+T:NEXT 

POKE V,35:P0KE V+1,174: 
POKE V+39,6 

POKE V+2.50:POKE V+3.155: 
POKE V+4C,4:POKE 2041,192 
POKE V+6,255:POKE V+7,102: 
POKE V+42.8 

POKE V+8,65:POKE V+9,179: 
POKE V+43,9 
SYS 49158 

POKE 708. 1:S=54272:F0R T= 
S TO S+24:P0KE T,C:NEXT 
POKE S+12,C:POKE S+L 3,240: 
POKE S+24,15 
GOSUB 470 

INPUT "[CLR,DOWN,BLU,RVS] 
PLAYER llOFF] (PORT 2)": 
P$(0):PCJ=(U-LEN (P$(0)))/ 
2 

POKE V+39,4 
NPUT "[PUR,RVS] PLAYER 2 
OFF] (PORT J ) H :PS(D:P1- 

,11-LEN CPS(l) ) J/2 

INPUT "(RVS,CBM 5] WHAT 
LEVEL (EASY 0 - 9 HARD) 
[OFF J 5|3LEFT]";LV:POKE 

693,242+LV 

INPUT " [RVSl BALL SPEED 
(FAST 0 - 9 SLOW) [OFF, 
2 SPACES ) 5 | 3 LEFT ] " ; BL : KL= 
BL+3zBL=BL+l 

INPUT "IRVS.CBM 7 J MATCH 
BANKSHOTS (Y/N) [OFF] N 
l3LEFTj";BS$ 
POKE 708,3:POKE V+39,6 
TMS-" f HOME, 6DOWN, 5 RIGHT, 
" CLOCK: 



130 
135 

140 



145 
150 

155 



RVS,CBM 7] SHOT 
14SPACES,3LEFT " 
M$=LEFT§ (TM9f 2)+" 
[3right.blk.down] [KVSl M 
SPS="[HOMEl^:HL$="[RlGHT]H 
RIGHTlOl RIGHT] R[ RIGHT IS 
RIGHT]E M ;PL$="[CBM 7,RVS, 
OSPACES]" 
FOR T=l TO 4C;CL$=CL$+ M 
[RIGHT] " : SP$=SPS+" I DOWN] 
NEXT 

P3S=" [HOME, DOWN] "+CLS 
P$(0)="[BLU]" + LEFT$ (P3S, 
P0+3)+P$(0) 

PH$ ( 0 ) =' ' [ BLU | HOME , 3 DOWN . 
RIGHT] ":PHS( 1 )=PHS(G)+ M 



1677 
2259 

1212 
2740 

2588 



16C 
165 



.12RIGHT] 
P5U)="lPURl"- 
Pl+15)+P$(l) 
S$="(BLK,RVSj 



LEFTS (P3S, 



939 
4179 



515C 



6C86 



4056 



2159 
3510 



1888 

3536 

3113 



1078 
2377 

4163 



2452 
6627 



3013 






185 


1785 




2867 


190 


3221 


195 


3396 


o on 


2752 






205 


3086 






210 


717 




3465 


215 


2649 




594 


220 


4601 





:SSS="[BLK,RVS)=[CYN, 
11 SPACES, BLK] : [CYN, 
I 1SPACES,BLKJ= M 
170 PRINT "[CLRr'S$:FOR T=l TO 

4: PRINT SSS:NEXT 
175 PRINT S$"[HOME,DOWN] n 

P$(G)P$(1) 
180 BA$="[BLU,RVS,CBM *,DOWN, 
LEFT | [CBM * f DOWN,2LEFT, 
2SPACES,CBM *, DOWN, 3LEFT, 
3SPACES,CBM *,D0WN,4LEFT, 
4SPACES,CBM I , DOWN, 5 LEFT, 
OFF, CBM *,RVS,3SPACES, 
DOWN, 3LEFT, OFF, CBM *,RVS, 
2SPACES,CBM I, DOWN, 3 LEFT, 
OFF, CBM *.RVSl [ DOWN, LEFT, 
OFF, CBM W 1 

FOR T=0 TO 11:BB$=BB$+" 
[RVS.DOWN.LEFT] "tNEXT 
PRINT "[HOME. DOWN]", t , HAS" 
[5UP,2RIGHT] f 'BB$ 
FOR T=l TO 14:DIS=D1$+" 
I BLK, DOWN ]m M : NEXT 
FOR T=l TO 25:D$=DS+ M [BLK. 
CBM Pl":E$=E$+"[BLK,CBM Y] 
" : NEXT 

E$=ES+LEFT$ (ES,28)+" 
[ HOME I " 



DI$"[RIGHT]"E$ 

F$="[BLK,CBM Plrfffffff 
DOWN, 13LEFT|n[ 3RIGHTln 
DOWN, 5LEFTlm[4RIGHT]m 
DOWN, 5LEFTJm(4RlGHT ]m" 



edcfff f f Ef £f f f" 
225 PRINT LEFTS (SP$,15) f , M 

[3LEFT] "F$ 
230 HHS="[CBM 4,RVS] [ RIGHT} 

* DOWN, 3 LEFT , 3SPACES , DOWN , 



3LEFT 
3LEFT 
235 HOS=" 
3LEFT 



[RIGHT] [2D0WN, 

RVS,3SPACES,DOWN, 
[RIGHT] [DOWN, 
3LEFT, 3SPACES ,2 DOWN , 3LEFT] 



24 



HR$="[RVS] [ CBM P,CbM *« 
DOWN, 3 LEFT] [ CBM Y,OFF. 
SHIFT \,DOWN,3LEFT,RVS] 

[OFF, CBM *-RVS,CBM *.. 
2DOWN-3LEFTI" 
245 HS$="[RVS,3SPACES r DOWN, 
3LEFT.CBM I, OFF, SHIFT *, 
CBM I,DOWN,3LEFT,RVS, 
3SPACES . 2 DOWN , 3LEFT] 
250 HE$="[RVS,3SPACES,DOWN, 
3LEFT] [OFF. SHIFT *,DOWN, 
2 LEFT - RVS , 3SPACES , 2 DOWN , 
3LEFT] " 
255 HS="[PUR] "+HH$+HO$+HR3+ 
HS$+HES: PRINT "[HOME, 
2DOWN1 " . , , " [ 7 RIGHT ] "HS" 
[HOME]" 

260 X=l:CT=7:POKE V+21,27:POKE 

254,C;P0KE 253,0 
265 PRINT TM$;CT 
270 X=-X:POKE 701,3:POKE 698,1 
275 XX=0:X1=1:IF X=l THEN XX= 

UXl-G 

280 IF PEEK (1282)=176 THEN 
POKE 698,0:GOSUB 405:GOTO 
265 

285 GOSUB 480: IF BUOC THEN 
280 

290 GOSUB 320: IF K=0 THEN 265 
295 PRINT TM$:CT:SYS 49152 



3CC 
3G5 



310 
315 
320 

325 

330 
335 

340 



345 

350 
355 

360 

365 

370 
375 

380 

385 

390 
395 

400 

455 

410 

415 

420 
425 

430 
435 
440 



445 
450 
455 



460 
465 
470 

475 
480 

485 

49C 
495 



IF PEEK (253J=0 THEN GOSUB 2271 
395:GOTO 315 

IF BS$="Y" AND L=l AND 3232 
PEEK (705)=0 THEN GOSUB 
415:GOTO 315 

GOSUB 410 570 
SYS 49l55:COTO 270 1566 
POKE 698,0:POKE 701,1:POKE 2673 
254 XX 

01=XY:02=YX:XY=PEEK (V+1+ 5016 

X):YX=PEEK ( V+2-OC) :K=1 

IF PEEK (253)=0 THEN 350 1428 

L=L+1:IF L)l THEN L=0: GOTO 1932 

35° 

IF^PEEK (1282)=176 THEN 3448 

GOSUB 405:POKE 698,0:K=0: 

RETURN 

IF ABS CXY-01)>16 OR ABS 3961 
(YX-02>>16 THEN GOSUB 400: 
K=0: RETURN 

POKE 2C40+-XX,193 1281 

POKE V+8,FEEK (V+l+XJ+3: 4056 

POKE V+9 , PEEK (V+2+X)-4 

GOSUB 480: IF BU016 THEN 2228 

360 

GOSUB 480: IF BUOO THEN 2045 
365 

IF L=l THEN 390 956 
POKE 682,l-*POKE 683, 1: POKE 2637 
692, KL 

IF SW=14 THEN POKE 682.2: 3052 

POKE 683,1 :GOTO 390 

IF SW=13 THEN POKE 682,1: 3339 

POKE 683,2 :POKE 692, BL 

POKE 2043+XX, 192: RETURN 1645 

PRINT MS" MISSED M :GOSUB 1864 

435: RETURN 

PRINT M$"[ LEFT] TOO FAR ": 2247 
GOSUB 42 5t; RETURN 
PRINT M$"TOO LATE": GOSUB 2050 
4 20: RETURN 

PRINT MS " [2 S PACE S ] GOOD 2678 
[2SPACESr:BK=PEEK (705): 
RETURN 

PRINT MS" NOBANK ":GOSUB 1907 

430; RETURN 

IF PEEK (253)=1 THEN L=L+1 1608 

POKE 254,X1;P0KE V+9 , PEEK 3167 
(V+2+(-X))+7 

POKE 253,0:GOSUB 500 1497 

IF L=0 THEN RETURN 953 

N(XX)=N(XX)+2;LL$=LEFTS 4219 

(HLS,N(XX) ):PRINT PHS(XX); 

LL9 

IF N(XX) = 10 THEN 455 1730 
L=0: BK=0:RETURN 1002 
POKE 698,0:GOSUB 470:PRINT 495A 
" HOME,6DOWN,CBM 4] PRESS 

[RVSl Y [OFF] TO PLAY 

AGAIN" 

GET AS: IF A$<>"Y" THEN 460 1878 

RUN 1 38 

FOR T=0 TO 8: POKE S+7, 2644 

L(T):POKE S+8,H<T) 

POKE S+U,33:FOR 1=1 TO 3872 

D(T)*75:NEXT :POXE 6*11. 

32: NEXT : RETURN 

JOY=PEEK (56320+PEEK 4590 

(254)):BU=JOY AND 16:SW= 

JOY AND 15 : RETURN 

POKE V+10.< PEEK (V)+l) 2268 

AND 255:GOTO 485 

POKE V+2 1,59: POKE V+9, 137 1866 
POKE V,105:POKE V+2,l4C: 5993 
POKE V+l,13l:POKE V+3.131: 
POKE V+10, 100:POKE V+ll, 
1 Co 



500 S=54272:POKE S+l 3, 249 : POKE 
S+14,252:POKE S+8,7:POKE 
S+ 11 ,33: POKE S+11,32 

505 FOR T=l TO 1000:NEXT : 
RETURN 

510 DATA 4,48,2,5,152,2.5,71, 
2,4.180,2,4,48,4,4,180,2, 
3.134,4,4.48,2,2,204,16 

515 DATA 7,224,0,63,255,128, 
^255, 255, 127,0, 127,255, 

520 DATA 555,0,240,0,0,254.0, 
0,254,0.5.254,5.0.254,5 

525 DATA 0,254.0,5.135.0.5. 

255,24,0,2i7;9o,0,J35,i36, 

530 DATA 247,120,0,250,255, 
128,245, 85. 2$4, 255. 255 

m 255. 1 27125$, 254.12$ 

535 DATA 30,0,0,30,5,0,28,0,0, 

. . 62,0,0,62.0,0,62 

540 DATA 0,0,52,0,0,63.0,0,31, 
128,0 .51,255.12$, 3l. 255 

545 DATA 192,31.224,0,63.128, 
0^32^128,0,53,236,0,58, 

550 DATA U 53,222. 0,58, 187,128, 
53^25^63,255,255 ,31 , 

555 J^j§'^^»^°^j 2 5|» 4 

560 DATA 2$l'248'ic£,105t2$t 8 
64,36. 156, 207, 36, 62, $07 
36, 15$, 245,251 

565 DATA 206 ,25 ] ,191,254.201 , 

570 DATA 67.248,68,63,7,248, 
24,112.48,15,255,224,3, 
255,126,178 

575 DATA 0,0,0,0,0,127,63,255, 
255, 245, §5, 1*7,127,25$, 

580 DATA 17,8,33,17,8.33.17.8, 
coe 33,17.8, 16. 170,144, 25, 6§ 
585 DATA 80. 8, 1 70,32, 9 17,32, 

,™ 192,3.252,§6,7 B lS2,2io,7 
600 DATA 255,240,5,255.208 7, 

605 5 A I A . 5 A 2 A"A^^^^ C » 2 ' 0 ' 
610 dAta u 5?0?g.o, 0,0,0. 0,0, 

0,0,0,0,5, 77[6SPACEsj 
6lD DATA 76.87,193.76.242,194, 

620 DATA 133,253.133,254,133, 
251, 169. $20,133, 252, 41, 
170,2.141,171,2 
625 DATA 169.253.141.175,2, 
169,254.141,172,5, 16$, 5, 
160,24.153.0 
630 DATA 212.136.208,250.169, 
15.141,24.212,120,169,70 
141,20,3,169 9 
635 DATA 192.141,21,3,88,96. 
173,30 ,258, 141, 17? ,2, 173 , 
196,2.240 
1 DATA 6.238,0,208,238,8. 
208, 173, 186, 2,245,20,206, 



6153 

1399 
7017 

5534 

4093 
4733 

6673 

3708 
4262 
5135 

6747 



64 



182,2,208 



645 DATA 20,206,2,5,173,2,5, 



6186 

5497 

5909 

5851 

5455 
5C40 
4639 
4473 
5924 

2807 
199 1 
6174 

6937 

5887 

5996 

5483 

3187 

4525 



201,177,176,5,162,0,142, 
186, 2 

650 DATA 169.60,141,182,2,173, 

189, 2, 204, 65, 173,17^,2, 

208 6 206 
655 DATA $.208, 76, 136,192.238, 

9,208.166,254,240,1,232, 

24,189,0 
660 DATA 208,105,10,141,8,208, 

56.173.9.208,253,1,208, 

201,1,144 
665 DATA 7,201,10,176,11.76, 

187.192,238,9,208,169,1, 

76, ISl , i92 
670 DATA 206,9-208,169,0,141, 

174, 2,32.131, 195, 165; 1, 

162,2,196 
675 DATA 254,240,8,169.0,141, 

169,2,76,208,192,169,1, 

141 ,169,2 
680 DATA 173,189,2,240.8,173, 

169,2.240,3,76,43,193,177, 

251 , 74 

685 DATA 176,20,72,189,1,208, 

231,0.12,240,11,222,1,208, 

173,169,2 
690 DATA 240,3,206,9,208.104, 

74,176.20.72,149,1,258, 

201 22v) 24^ 
693 DATA 11*254, 1 , 208, 1 73, 169, 

2,240,3,238,9,208,104,74, 

176, 12 

700 DATA 72,189,0,208,201,24, 

240,3,222,0,208,104,74, 

176,12.72 
705 DATA 1&9. 0,208. 231, 240, 

17 6,3,254,5,208,104, 162,0, 

1 36, 208, 3 
713 DATA 76.191,192,238.175,2, 

240,3,76.187,192,169,253, 

141,175,2 
715 DATA 76.49,234,138,72.152, 

72.174,180.2,160,0,136, 

2o4,255,202 
723 DATA 208,248,104,168,104, 

170,96.169,0,160,10, 153, 

187,2,136.206 
725 DATA 250,133,253,169,35, 

141,178,2.169,17,141,4, 

212,141,149,2 
733 DATA 32,198,195,169,238. 

^It^ 173 ' 192 - 2 ' 2 ^ 

735 DATA 172,170.2,174,171,2, 
136,16.3.76,80,194,173,9, 
208 208 

740 DATA 21,173,188,2,240.3, 

745 DATA 76^ 169, 194,76.80, 194, 
173, 190,2,240,8,206, 190,2, 
208 8 

750 DATA 76.60.194.173,188,2, 
208,3^76,63,194,173,9,208, 

755 DATA 176,90,201.150.240, 

118,201.97.208.117,173, 

191,2.208.112.173 
760 DATA 8,208.201.236.176.11, 

173,193.2,208,100,32,220, 

195,76,63 
765 DATA 194,201.254.176.5, 

205,181,2,176,35, 169,15, 

141.184 2 173 
770 DATA 185,2,201,65,176,5, 

169,31,141,184,2,173,27, 

212,45,184 



5343 

5654 

5763 

5535 

5630 

5482 

5558 

6061 

5501 

5512 

5178 

5659 

5534 

5316 

6116 

5969 

5047 

5778 

5361 

5795 

5 744 

5892 

5482 

6348 

5869 



775 DATA 2,141,190,2,238.190, 
2.32^195,76,54,194, 

780 DATA 253.169,252.141,8, 

208,32.163.195,70,63,194, 

1»; 196, 141 .252 
785 DATA 7,169,32,141,29,208, 

169,9.141,43,208,169,1, 

141,192,2 
790 DATA 141,194,2,32,131,195, 

32.198,195,76,63,194,32, 

20§, 19^.206 
795 DATA 9,208,173,194,2,208, 

9,238, 178,2, 175,174,5,141, 

800 DATA 202,16,6,152.48,106, 
76jl86^l94,l73,193,2,240, 

805 DATA i08, 41.3, 240, 85, 165, 

253^208^81,175,191,2,240, 

810 DATA 2,240,68.173,8.208, 
201,26,176,8,169,236,141 , 
163,19^,76 

815 DATA 163.194,201,255,208, 
^17^1^2,2, 208, 19,i73,9, 

820 DATA T4i, 23. 201 ,110,176, 

19,32,131,195,169,1,141, 

193,2.169,206 
825 DATA 141,163,194,206,8, 

208,76,186,194,32,20$, 95, 

32,220,195,169 
830 DATA 1,141.191,2,141,188, 

2^32j67, 193, 32, 67, 193,76, 

835 DATA 173.188,2,208-8,164, 
254,177^51,^1,16,504,74, 

840 DATA 1^3.195.2,208,6,169, 
1,141,186,2,96,169,17,141, 
1 76, 2 

845 DATA 165,254,208,3.238, 
376,2,173,177,2,45,176,2, 
205 , 176,2 

850 DATA 240,8,169,1,141,195, 

855 DATA 254,208,7,232,134, 

860 DATA 208, 105,5,14! ,9,208, 
1^69^56,141 ,7,, 195. 169. 

865 DATA 195,173,9,208,141, 



870 DATA (93,2,240.3,76,60, 

875 DATA 6.238.9,208,76,74, 

195,236,9,20^,175,8 234, 

201,255,208 
880 DATA 6.32,209,195,76,123, 

195,238,8.208,32,67,193, 

202,208.254 
885 DATA 236.173,2,136,208, 

890 DATA 32,209,195,169,206, 

it^i:?^' 55 - 1 ^ 169 ' 

895 DATA 76,120,193.169,2,141, 
1^1^1^185,141,5,212. 

902 



5835 
6625 
5489 

6415 

5148 

5557 

5703 

60C1 

5830 

5814 

6481 

6176 

5897 

5373 

5788 

5766 

5707 

5574 

5769 

6140 

5366 

6427 

5659 

6133 

5406 

5630 



169,128,14] 
905 DATA 4.212,96,169,0,141,6, 5236 
212,141,4,212,141,5,212, 
169,42 

910 DATA 141,1.212.169,252, 5474 

141,6,212,169,17,141,4, 

212,169,16,141 
915 DATA 4.212,141,194,2,96, 5656 



169,206,141,63,194,169, 

238,141,71,194 
920 DATA 96,169,238,141,63, 6763 

194,169,206,141,71,194,96, 

169,194.141,252 
925 DATA 7,169,5,141,43,208, 4013 

169,48,141,29,208,96 



Til Commodor 64/128 

SEQ FILE READER 



Til Commodor 64/128 

3 SI DERS FORSIDE 



80 
90 
110 



120 
130 

150 
180 

190 

210 
220 

230 
240 
250 
260 

270 

280 

290 

300 
335 

340 



35C 
380 
390 
400 
410 
430 

440 



REM 
REM 

POKE 53280. 0:POKE 53281.0; 
NL$=CHRS (0):NS=CHR$ (15): 
SS="[10SPACESj" 
PRINT CHRS (14)"[D0WN.YEL, 
RVS] SEQ-READER [OFF]* 
AS="":INPUT "[DOWN] 
FILENAME ":A$:IF LEN (A$)< 
1 OR LEN (A$)>16 THEN 130 
OPEN 15,8, 15,"l":OPEN 8.8, 
2,A$+",S,R":INPUT#15,A,B$ 
IF AO0 THEN CLOSE 8:CLOSE 
1 5: PRINT " [DOWN, RVS ] 

ERROR"A" [ LEFT] [OFF): " 
B$:G0T0 130 

POKE 198,0:PRINT "[DOWN] 
PRINTER OR SCREEN ?[DOWN]" 
GET AS: IF A$<>"P" AND A$<> 
"S" THEN 200 

WAIT 197,64:P=1: IF A$="S" 
THEN P=0:GOTO 260 
OPEN 4,4:PRINT#4,N$; :1F 
ST<>0 THEN CLOSE 4: PRINT " 

[RVS] PRINTER ERROR [ OFF] " 

:GOT0 190 

CLOSE 4:OPEN 4,4, 7: PRINT* 

4,NS; 

POKE 198,0:PRINT "PRINTER 

MARGIN (Y/N) ?[D0WN] M 
GET MS: IF M$<> M Y" AND M$<> 
"N" THEN 2 5 
PRINT " [ CLR 

SPACE [OFF 

STOP . I DOWN 
PRINT *USE RVS] RETURN 

[OFF] TO BREAK PROGRAM. 
[ DOWN. CRN] " 

IF P=l AND MS="Y" THEN 
PRINT#4,S$; 

GET #8,GS:G=ASC (G$+NL$>: 
IF STOC THEN 430 
IF PEEK (197)064 THEN 380 
IF G<32 OR GM25 THEN IF 
G<193 OR C>221 THEN IF GO 
13 AND CO160 THEN 290 
PRINT GS;:TF P=l THEN 
PRINTS, GS ;: IF G=13 THEN 
IF MS="Y" THEN PRINTS, S$: 
GOTO 290 

IF PEEK (197)=60 THEN 380 
IF PEEK (197M THEN 430 
IF PEEK (197)060 THEN 390 
WAIT 197,64:GOT0 335 
IF AS="P" THEN FOR 1=1 TO 
5:PRINT#4:NEXT : CLOSE 4 
CLOSE 8: CLOSE 15:PRINT : 
PRINT "[ DOWN, YEL, RVS 1 
FINISHED [OFF,CBM 7, 
CTRL I 1": POKE 198,0 



USE [RVS] 
TO START AND 



4398 

2167 
4330 

3681 
3557 

3433 
2504 
3110 
4797 

1974 
3749 
2867 
3041 

3744 

2169 

3554 

1861 
5033 

4153 

594 
1707 
1601 
1877 
1703 
2556 

3741 



8 

9 

10 

20 
30 

40 

Si 

60 
70 



90 
95 
1000 



REM LINIERNE 10-80 ER K 

UN DEMONSTRATION 

PRINT "[CLR]":C1=8:C2=7; 

C3=5:GOSUB 1000 

PRINT "13D0WN T 3SPACES]F1 

F3 OG F5 SKIFTER FARVEN" 
GET IS:IF 1$="" THEN 40 
IF I$=CHR$ (135) THEN Cl= 
(Cl+1) AND 15:G0SUB 1000 
IF I$=CHR$ ( 134 ) THEN C2= 
(C2+1) AND 15:GOSUB 1000 
IF I$=CHR$ (133) THEN C3= 
(C3+I) AND 15:GOSUB 1000 
POKE 198,0:GOTO 40 



10K 



REM 3-StDERS S 

UBRUTINE CI-C2-C3 = 

SIDE-FAR VER (0-15) 
REM EKSEMPEL: 

(ROD-GRON-GUL) C1=2:C 
2=5 :C3=7:GOSUB 1.000 
A$=" [ BLK , WHT , RED . CYN , PUR , 
GRN,BLU,YEL,CBM t ,CBM 2, 
CBM 3,CBM 4. CBM 5. CBM 6, 
CBM 7, CBM 8]":C$=" 
[4SPACES]":E$=MIDS (AS,C3+ 
1,1):F$=MID$ (A$,C2+1.1) 
D$=" f BLK ] " : B$=C$+C$ : A$=BS+ 
BS+BS+B$:C$=D$+" "+ES+ M 
[3SPACES]"tH$=D$4-" "+F5+" 
[3SPACES]" 

PRINT "[HOME, RVS] ": : POKE 
53280, 0:POKE 53281. C1:F0R 
1=1 TO 3:PRINT D$B$ESA$:: 
NEXT 

1050 FOR [=1 TO 3: PRINT 

DSC$FSA$E$C$;:NEXT : FOR 1= 
1 TO 3: PRINT SPC( 
32)FSC$G$::NEXT 
FOR 1=1 TO 10:PRINT SPC( 
32)H£GS: :NEXT :FOR 1=1 TO 
3:PRINT SPC(32)HSDSCS; : 
NEXT 

FOR 1=1 TO 2:PRINT SPC( 

" :NEXT : PRINT SPC( 
SPACES, HOME, 5DOWN, 



103C 



L04C 



106C 



1 n 7 '" 



1 v80 



32)DSBS; 
32)C? 
BLK] 1 

POKE 2023,160:POKE 56295, 
0: RETURN 



2565 

2893 

1407 
2891 

2907 

2923 

1356 



6151 



5297 



4163 



5041 



4352 



3908 



2191 



Vejledning til programmerne 

Datafile 



Hvis du synes, det kunne v&re en 
god ide at fa registreret alle de 
poster, som du ellers har svaert 
ved at holds styr pa, er her et 
fancy database-program, som 
lynhurtlgt kan give dig de Informa- 
tloner, du onsker. 

Datafile er et dalabasesystem for 
Commodore 64, som ligger i compu- 
terens RAM-lager og giver mulig- 
hed for afvikling al flere programmer. 
Programmet kan bruge enhver ASCII 
eller Commodore printer og sekven- 
lielle filer pa et 1541 diskettedrev. 

Datafile giver dig mulighed for at 
designe din egen database ved at 
vselge antal og laangde af feller og 
disses navne. Programmet beregner 
- efter de forudsaatniinger. du har 
opstillet - det maksimale antal po- 
ster, som kan indeholdes i hukorn- 
melsen. Efter du har designet en 
database og indfort poster, kan du 
udfore standardoperationer pa disse 
og gemme resultateme pa diskette 
eller udskrive dem i forskellige for- 
mater. 

Hovedprogrammet kan indlasse 
andre underprogrammer fra disket- 
ten og flylte sig selv fra hukommel- 
sen, sa der bliver plads til det nye 
program t det samme hukommelses- 
omrade. Det nye program kan sa 
bruge de samme variable og data, 
som blev indsat ved udlorslen af det 
fsrste program. 

DATAFILE ORDRER 

Du starter med al taste LOAD " DA- 
TAFILE" ,B <RETUR>. Nar disketten 
stopper, tastes RUN <RETUR>. 

Sa fremkommer hovedmenuen pa 
skeermen. Du kan vaslge en hvllken 
som heist funktion ved at trykke den 
tast, der svarer til det forste bogstav i 
funktionen. Bemserk at Create (op- 
ret) eller Read (lass) bor vasre den 
ferste funktion, du vselger. Program- 
met vil sa hoppe til den valgte under- 
ruline, uden at du skal taste <RETU- 
R>. NaT en valgt underrutine har 



udfart sine opgaver, vil den attid ven- 
de lilbage til hovedmenuen. 

Det er en god ide at lave en Nile 
database ferst, sa du kan blive fortro- 
lig med Datafile. LaEsg ikke for meget 
arbejde i dit forste forsog. Eksperi- 
menter lidt for at finde ud af program- 
mets muligheder. I det folgende be- 
skrives udforligt, hvad der sker. nar 
du vaslger de forskellige funktioner i 
hovedmenuen. 

CREATE NEW FILE (opret ny fil) 

Prov at spare pa den p l ads. der be- 
nyttes i hukommelsen, ved at holde 
antallet af felter og tasngden af nav- 
nene nede. lasngden af felterne skal 
altid vaere mindre end 75 tegn. 

ADD RECORD TO CURRENT FILE 
(tilfoj post til aktuel fil) 

Ved tryk pa. A i hovedmenuen, kom- 
mer folgende pa skeermen: 

PRESS THE {RETURN} KEY AFTER 
EACH ENTRY PRESS (RETURN J 
WITHOUT ANY ENTRY TO STOP 

(RECORD NUMBER 1} 

(tast <RETUR> efter hver indtast- 
ning 

last <RETUR> uden nogen indtast- 
ning for at afslutte post nummer 1) 

Indtast nu ca. 10 poster, sa du har 
noget at lege med. Hvis du prover at 
taste flere tegn ind i et felt, end det er 
defineret til . vil du fa en fejlmeddelel- 
se. Du vil bemaerke dummy-karakte- 
ren efter hver input-SEetning. Denne 
bruges til at reservere plads, nar 
cornputeren skriver den sekventielle 
fil til disketten, 

Du kan afbryde indlastningen af 
poster ved at taste <RETUR> uden 
at have tastet noget andet I det forste 
felt. Dette virker ikke pa de efterfol- 
gende felter. tordi programmet anta- 
ger, at der der ligger nogle data, som 
skal gemmes. Dette gor det ogsa 
muligt at indsaatte blanktegn. hvis du 



ferst vil indfoje informationerne pa et 
senere tidspunkt, fordi du maske 
endnu ikke kender disse. 

Det er vigtigt at bemasrke, at Data- 
file ikke vil acceptere brugen af cita- 
tionstegn, komma, semtkolon eller 
kolon som en del af data i felterne. 
Alle andre alfanumeriske tegn er 
lovlige. 



MODIFY WHICH RECORD? ENTER 
(#} OR {A}LL ? 

(asndring af hvilken post? Indtast 
post nummer eller A (alle)) 

Hvis du onsker kun at andre en 
bestemt post, indtast da postens 
nummer {prov f.eks. 1), og tast <RE- 
TUR>. Hvis du derimod taster A, 
vises alle posterne i filen, en ad gan- 
gen, Nar du taster 1, far du folgende 
pa skasrmen: 

TO MODIFY RECORD NUMBER 1, 
MAKE CHANGES AS EACH FIELD 
IS DISPLAYED, THEN (RETURN} 

(for at aandre post nummer 1, udfor 
rettelserne efterhinden som de en- 
keite felter vises, tast sa <RETUR>) 

Som du kan se, er dette format 
rnagen til Add-funktionen, ud over at 
data skrives for dig pa skeermen. 

DELETE RECORD IN CURRENT 
FILE (slet post i aktuel fil) 

Nar du taster D, far du: 

DELETE WHICH RECORD? ENTER 
{#} OR { A)LL ? 

(slet hvilken post? Indtast post num- 
mer eller A (alle)) 



MODIFY RECORD IN CURRENT 
FILE (aandring af post I aktuel fil) 

Hvis du taster M, fremkommer fol- 
gende pa skeermen: 
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Du skal ikke vasre bange for al 
taste A her. Poster biiver ikke siettet, 
med rnindre du giver tilladelsen fsrst. 
I dette eksempel, tast 1 og <RE- 
TUR>, hvilket giver folgende teksl: 

TO DELETE RECORD NUMBER 1, 
PRESS {SHIFT} {D}. PRESS {SPA- 
CE BAR} TO ADVANCE 

(for at slette post nummer 1, tast 
<SHIFT><D>, tryk mellemrum- 
stangenten ned for at fortsasttte.) 

Hele posten vises, saledes al du 
kender hele indhotdet af posten, for 
du forsoger at slette den. Hvls du 
onsker at slette posten. hold 
<SHIFT> nede, mens du taster 0, 

Det totale antal poster i filen redu- 
ceres med en, og atle de efterfalgen- 
de poster renummereres. Hvis du 
ikke einskerat slette posten, taster du 
blot mellemrum, og programmet 
bringer dig videre til nseste post eller 
tiibage til hovedmenuen. Husk at sa- 
ve din redigerede fil. 

READ OLD FILE FROM DISK 
(laes eksisterende fil fra diskette) 

Denne funktion bruges normal! ved 
opstarten af Datafile for at indlasse en 
tidligere oprettet fil , Programmet sva- 
rer med: 

ENTER NAME OF FILE TO BE 
LOADED ? 

(indtast navn pa" onsket fil) 

Indtast navnet pa datafilen og tast 
<RETUR>. Filen biiver indlasst, og 
du kommer tiibage til hovedprogram- 
met. Hvis der tastes <RETUR> 
uden et filnavn, vil programmet lige- 
ledes vende tiibage til hovedpro- 
grammet. 

PRINT RECORDS BY SELECTION 
(udskriv poster efter valg) 

Denne funktion bringer dig frem til en 
anden menu, som er beregnet til at 
indlcese underprograrnmer, der der- 
efter styrer udskriften, Hvis der ikke 
ligger nog-en poster i hukommelsen. 
vil du blive sendt tiibage til hovedme- 
nuen. 

(PRINTER MAIN MENU) 

PRINT RECORDS USING: 

{REPORTS AND LISTS 
{ MJ AILING LABELS 



MSER DEFINED SUBPROGRAM 
(E}XIT TO MAIN MENU 

(PRESS THE APPROPRIATE KEY} 

(printer hovedmenu) 

udskriv poster: 

<R> = rapporter og lister 
<M> = adresselabels 
<U> = brugerdefineref 
underprogram 

<E> = retur til hovedmenu 

(vaslg den anskede funktion) 

E returnerer til hovedmenuen, R 
indleeser DFReport, og M indleeser 
DFMail. U giver: 

ENTER NAME OF SUBPROGRAM ? 

(indtast navn pa underprogram) 

Her kan du indlaese programmer, 
som kan udfare operationer pa dine 
data, som Datafile ikke er i stand til. 
Hvis du ikke indtaster noget filnavn, 
vil du blive sendt tiibage til printerme- 
nuen. 

U-funktionen kan indleese et pro- 
gram, som du har skrevet for at for- 
bedre din database. For eksempel 
kan det vaare et program, som sum- 
merer alle de numeriske vasrdier i ei 
felt i en datatil. Dette kunne f.eks. 
vasre et felt, som indeholder antallet 
af de enkelte varer, du har pa lageret, 
saledes hurtigt kan tinde ud af. hvor 
mange varer, du har ialt. 

Mange vahationer er mulige. Du 
biiver nodt til at gennemtaase pro- 
gramlistningerne for at finde de vana- 
belnavne, der indeholder de data, du 
er interesseret i. Mere herom 
senere. 

VIEW FILE ON SCREEN 
(vis fil pa skaerm) 

Nar du gar ind i denne funktion, vises 
den forste post i datafilen sammen 
med folgende kommandoer: 

(RECORD NUMBER 1} IN FILE 
(datalilens navn) 

(Postens data) 

(N}EXT. {L)AST, 
{J}UMP. (F)IND, 
(E}XIT 

(post nu mmer 1 ) i fil (datafilens navn) 



(postens data) 

<N> = nzeste, <L> = foregaende, 
<J> = hop, <F> = find. <E> = 
retur 

Hvis du taster N, viser skasrmen 
naeste post. Saldes kan du ga gen- 
nem hele din datafil, en post ad gan- 
gen. L bringer dig tiibage til den 
umiddelbart foregaende post. J giver 
dig mulighed for at g5 direkte til et 
besternt post nurnmer. i stedet for at 
skulle gi et skridt ad gangen. Du 
biiver spurgt om det onskede post 
nummer; indtast dit valg. og tast 
<RETUR>. 

F er en sogefunktion. som giver 
dig mulighed for at finde felter med 
faslles tegnfolge eller data. Skssrmen 
viser en Jlste med feltnavne pa den 
aktuelie datafil og beder dig sa om at 
indtaste nummeret pa" det felt, du 
Snsker af sege i. Feltnavnet vises sa, 
og du biiver bedt om at ENTER 
(COMMON ITEM) (indtaste feelles 
tegnfolge). Indtast den tekststreng, 
der skal soges efter, og last 
<RETUR>. 

Hvis du eksempelvis vselger et felt 
med navnet FORNAVN, kan du ind- 
taste strengen ANNE. Computeren 
vil finde frem til alle poster, hvis FOR- 
NAVN-felt begynder med ANNE. 

Du vil ikke alene finde frem til alle 
poster med ANNE i FORNAVN-fel- 
tet, men ogsa ANNELISE, ANNE- 
METTE osv. Hvis du indtaster el K. vil 
du finde alle strenge i det angivne 
felt, der begynder med K osv. Tast N 
for at lortsastte sogningen i den nae- 
ste post. 

SORT RECORDS BY FIELD 
(sorter poster efter felt) 

Feltnavne ne vil blive vist, efterfulgl af 
et nummer. og listen vil blive afsluttet 
med sporgsmalet: 

WHICH FIELD IS TO BE SORTED? 
(hvilket felt skal sorteres?) 

Nar du indtaster et af de viste 
numre. efterfulgl af <RETUR>, vil 
computeren sortere felterne i stigen- 
de atfanumerisk orden. Computeren 
vil vise dig, hvor Jang* den er naet i 
processen ved al blinke med num- 
meret pa den post, den i ojeblikket 
arbejder pa. 

Datafile benytter en ShellMetzler 
sorteringsalgoritme. Alie data, der 
ligger i Datafile, er organiseret som 
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strenge i arrays, hvad enten der er 
tale om tal eller bogstaver. Derfor er 
del vasrd al bemaerke - nar du sorte- 
rer lal - at det forste ciffer vil blive 
betragtet som detforste tegn, nar der 
samrnenlignes med andre tal. 

(Bemserk: En onskel sorter! ng skal 
udfores, (or man gar til print-under- 
prog ram merne. Der er i disse pro- 
gram mer ingen mulighed for at sorte- 
re posterne.) 

WRITE NEW FILE TO DISK 
(gem ny fil pa diskette) 

Nar du gar ind i denne tunktion. kom- 
mer folgende frem pa sksermen: 

ENTER NAME OF CURRENT FILE 
TO BE SAVED (12 CHARACTERS 
MAX). ANY EXISTING FILE WITH 
THE SAME NAME WILL BE SCRAT- 
CHED ? 

(indtast hvilket navn. du onsker at 
gemme filen under (max, 12 tegn); 
evt. eksisterende fll med derte navn 
vil blive overskrevet.) 

Som tidligere nzevnt, tilfojer Datafi- 
le specielle tegnkoder til begyndel- 
sen af dine dataller og tormatftler. 
Dette sikrer, at de forskellige pro- 
grammer indl»ser deres egne filer, 
selvom de skulle have tilnavne, sam- 
menfaldende med andre program- 
mers. 

Nar da skriver din aktuelle datafil til 
disketten, medforer del folgende 
operationer: 

-Du har indlaest din Datafile Mail 
List (adresseliste) fra disketten. Pa 
diskettens katalog figurerer den som 
DF} MAIL LIST. 

- Nu har du arbejdet pa filen, og du 
vil nu gemme den under samme 
navn, som du indlasste den under, 
dvs. MAIL LIST. 

- Programme! vil aendre DF) MAIL 
LIST - navnet pa den sidste version 
af filen i kataloget til DF} MAIL 
LISIOLD. Bemasrk at de sidste fire 
tegn t del 1 6 tegn lange filnavn erstat- 
tes af 'OLD. 

- Den opdaterede fil vil sa blive 
gemt som DF} MAIL LIST. 

- Hvis DF) MAIL LISIOLD allere- 
de befandt sig i diskens katalog, ville 
denne fil blive slettet. far MAIL 
LIST-filen blev omdeot. 

Kort sagt, gem mer Datafile altid din 
aktuelle datafil og din sidste datafil. 
Dette giver dig rnulig hed (or at vende 
tilbage til den foregaende version af 
din fil. Hvis du onsker at indlaase den 



foregaende fil fra Read Old File (lass 
eksisterende fil) pa menuen, Indtast 
da MAIL LISIOLD. Du skal ikke med- 
tage de specielle karakterer. som du 
ser i begyndelsen af filnavnet. 

Skulle du onske al gemme !OLD 
filer, ma du give dem et nyt navn, sa 
du ikke senere overskriver dem. 
(Husk filnavne ikke ma. overstige 12 
tegn.) 

DISK-KOMMANDOER 

Ved at taste @ kommer du til disk- 
kommando-menuen. Ved at taste E 
kommer du tilbage til hovedmenuen. 
De andre muligheder beskrives i det 
folgende: 

FORMAT A DISK 
(formatter en diskette) 

Denne funktion giver dig mulighed 
for at formattere en ubrugt diskette, 
som du derefter kan gemme filer pa. 
FoTvis dig om, at den diskette, du har 
i drevet, er den du onsker at fa for- 
matteret, fordi denne funktion sletter 
disketten fuldstasndig. 

{DISK NAME.ID)? 

(disknavn.id) 

Indsset en diskette i disketledre- 
vet. Indtast det anskede navn pa 
disketten, op til 16 tegn, fulgt af et 
komma og et 2 tegn langt id og last 
<RETUR>. (For eksempel: DATA- 
FILE FILER, D2). Drevet begynder at 
formattere disketten (det tager ca. 
3,5 minut). War formattenngen er 
fa?rdig, ryger du tilbage til menuen. 

DISK DIRECTORY (disk-katalog) 

Hvis du taster <SHIFT><F4>, far 
du en listning af kataloget pa den 
diskette, du har i drevet. En hvllken 
som heist last bringer dig tilbage til 
menuen. 

SCRATCH A SEQUENTIAL FILE 
(slet en sekventiel fil) 

Denne funktion kan slette en sek- 
ventiel fil pa disketten. Nar du bliver 
spurgt, skal du indtaste filnavnet, ns- 
jagtigt som det star i kataloget. For 
eksempel vises Datafiles fil, der hed- 
der Mail List, som DF) MAIL LIST i 
kataloget og DFMails formatfil, som 
hedder Mail List, fremstar som ML) 
MAIL LIST. Indtast aile tegnene som 
vist og herefter <RETUR>. 

RENAME A SEQUENTIAL FILE 
(omdsb en sekventiel fil) 



Denne rutine omdober en sekven- 
tiel fil. Indtast navnel pS den fil, der 
skal omdobes, nojagtigt som det 
fremstar i kataloget. Indtast det nye 
navn, nardu bliver bedtom det. Husk 
at medtage de specielle tegn, som 
stod foran det gamle navn, ellers vil 
Datafile ikke genkende den omdobte 
fil. 

DFMAIL INSTRUKTIONER 

Du indlasser DFMail fra printermenu- 
eni Datafile. Det eren forudssetning, 
at der ligger en datafil i hukommelsen 
- ellers er der ikke noget at printe. 

DFMail benytter labels af en hvil- 
ken som heist storreSse til traktorfod- 
ning. Labels af standardstorrelse (5 
tekstlinjer) er de almindeligste og 
derfor nemmest at fa fat pa. Labels 
med 8 tekstlinjer er ogsa ret alminde- 
lige. Vselg rnellem disse slorrelser 
med S (sma) eller L (store) tasten. 
Hvis dine labels ikke er af standard- 
storrelse. tast O i stedet for (0 for 
Other = andre). 

OTHER (andre) lader dig vaelge 
antaliet af linjer fra 1 til ?, og antallet af 
tegn kan udvides fra 32 til 136. Hvis 
du sastter din printer til at skrive teet 
skrift (compressed mode), kan du 
skrive flere tegn pa labels af alminde- 
lig starrelse. 

Nogle labels, som passer til printe- 
re uden traktorfodning, er placeret to 
og to. Disse labels, som erca. 10 cm. 
lange, bruges hvis printeren kun har 
valsetodning (Okidata og Epson for 
eksempel), Disse sterre labels kan 
rum me 38 tegn pr. Nnje. om onsket. 
DFMail sknver dog kun pa den ven- 
stre label. For at bruge de res-terende 
labels, kan du naturligvis bagefter 
fade arket omvendt i printeren. 

Hvis der tastes 0, vises folgende 
pa skasrmen: 

ENTER NUMBER OF ROWS ON LA- 
BEL? ENTER NUMBER OF CHA- 
RACTERS PER ROW? 

(indtast antal linjer pr. label 
indtast antal tegn pr. linje) 

Indtast dine data, nar du bliver bedt 
om det. Det neeste skfflrmbillede er 
hovedmenuen for programme!, der 
udskriver labels. 

{MAILING LABELS MENU) 

{P}RE-DEFINED FORMAT OR 
{D}EFINE NEW FORMAT 
<C}HANGE LABEL SIZE 
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{E)XfTTO MAIN PROGRAM OR 
<R)EPORT/LISTING PROGRAM 
(Q}UIT PROGRAM 

(menu til udskrivning af labels 
<P> ■ slandardformat 
<D> = defin6r nyt format 
<C> m skift label-storrelse 

<E> = retur til hovedprogram 
<R> = rappor1-/listningsprogram 
<Q> = afslut program 

Hvis du taster E, genindlseser du 
Datafile i hukommelsen uden at ode- 
laegge data i posterne. 0 lukker filer- 
ne og afslutter programme!. Hvis du 
slutter her. slettes alle data. Ger kun 
dette, hvis du ikke har rettet i nogen 
poster, og hvis din aktuelle datatil er 
gemt p5 diskette. Programmet vil ad- 
vare dig, hvis du ikke har gjort del. 

R indlaaser underprogrammet 
DFReport direkte, sa du ikke behever 
at gS lilbage til Datafile-programmet 
for at hente del. C sender dig ttlbage 
til den forste menu, du modte, da du 
startede DFMail. Herved kan du 
sendre storrelsen af dine labels. 

FORMATTING YOUR LABELS 
(formattering af udskritt pa labels) 

Formaltering at printerudskrifter kan 
vasre noget af del vanskeligste ved at 
arbejde med databaser. Du skal kun- 
ne forestille dig, hvorledes du onsker 
det endelige resultat skal fremsta. 

Nar du har formatteret en label 
eller rapport (ved brug af pFReport), 
kan du gemme dit format til senere 
brug. Derefter kan du, nar du onsker 
at udskrive labels, hurtigt komme 
gennem formatteringsrutinerne. 

Lad os preve at lave en adressela- 
bel, som sandsynligvis vil passe til de 
flestes behov. For du gor dette, skal 
du have opretlet en datafil, som er 
kompatibel med dit label-format. Da- 
tafilen skat have folgende struktur: 

Datafilens navn: MAIL LIST Antai tel- 
ler: 8 





Feltnavn Feltla?ngde 


1 


EFTERNAVN 15 


2 


FOR NAVN 10 


3 


KODE 5 


4 


ADRESSE 32 


5 


BY 23 


6 


LAND 2 


7 


POSTNR. 5 


8 


TELEFON 12 



/Endringer I ovenstaende kunne 
f.eks. veere at indfoje en ekstra ad- 
resselinje (f.eks. firmanavn). Tele- 
fonnumrneret er indeholdt i datafilen, 
men vil ikke blive udskrevet pk la- 
bels. Feltet, der hedder kode, kan 
bruges til at klassfficere posterne 
(f.eks. S torslasgtning, Vforven, Ffor 
forretningsforbindelse), eller til et 
personalenummer, en titel eller et 
kontonummer. 

DEFINE NEW FORMAT 
(definer nyt format) 

Nu da datafilen er defineret og inde- 
holder data, lad os vende tilbage til 
DFMail. Hvis du taster D i Mailing 
Labels menuen, far du folgende 
skasrmbillede, som viser, hvilken la- 
belstorrelse du har valgt: 

(MAILING LIST FORMAT} 

THIS FORMAT USES SINGLE 
ROW LABELS. 

EACH LABEL CONTAINS UP 
TO 5 ROWS. 

EACH ROW CAN CONSIST OF 
1 TO 3 FIELDS. 

IF THE LENGTH OF MULTIPLE 
ITEMS EXCEEDS 32 CHARAC- 
TERS, SOME DATA WILL BE CUT 
OFF. 

(NUMBER OF ROWS?} 

(format af adresselabels 

dette format benytter enkeltsporede 
labels 

hver label indeholder op til 5 linjer 

hver linje kan besta af 1 til 3 felter 

hvis lasngden af en linje overstiger 32 
tegn, vil data blive beskaret 

indtast antal linjer?) 

Lad os nu finde ud af, hvordan 
vores label skal se ud. Ferste linje vil 
indeholde postfelterne 2, 1 og 3 
<FORNAVN, EFTERNAVN og KODE) 
i nasvnte reekkefeige. Anden linje vil 
kun besta af feltnr. 4 (ADRESSE). 
Tredje linje vil indeholde feltnumrene 
5, 6 og 7 (BY, LAND og POSTNR.). 
Fjerde og femte linje skal ikke 
bruges. 



Den label, som vises pa skaarmen, 
er opdelt i 3 felter pr. linje. Dette er 
formatfelter, ikke postfelter. Bliv nu 
ikke forvirret. Indtast 3 efter NUM- 
BER OF ROWS? (antal linjer) og tasl 
<RETUR>. 

CHOOSE WHICH FIELDS GO IN 
WHICH ROW ENTER {0) IF ADDITI- 
ONAL FIELDS ARE NOT DESIRED. 



1 


EFTERNAVN ROW 1 


2 


FORNAVN FIELD 17 0 


3 


KODE 


4 


ADRESSE 


5 


BY 


6 


LAND 


7 


POSTNR. 


8 


TELEFON 



(bestem hvilke felter, der skal i hvilke 
linjer indtast 0, hvis du ikke har brug 
for ekstra felter.) 

Fell nummer 1 refererer i dette 
tilfaslde til det forste felt i den forste 
linje. I dette felt vil vi indsastte postfelt 
nummer 2, som er vis! i venstre side 
af skeermen. Svar pa\ hojre side af 
skaarmen. som vist nedenfor: 

ROW 1 

FIELD 1? 2 

FIELD 2? 1 

FIELD 3? 3 

ROW 2 

FIELD 1? 4 

FIELD 2? 0 

FIELD 3? 0 

ROW 3 

FIELD 1? 5 

FIELD 2? 6 

FIELD 3? 7 

Tast <RETUR> efter hver indtast- 
ning. Folgende kornmer pa* 
skeermen: 

YOU WISH TO REVIEW YOUR FOR- 
MAT AND/OR MAKE CORREC- 
TJONS? )Y) OR {N> 

(ensker du at se dit formal og/eller 
aendre i det? <Y> = ja <N> = ne|) 

Hvis du taster Y, vil den sidste 
skasrrn btive gentaget, bortset fra at 
postfelternes numre vil sta efter for- 
matfelterne. Hvis du taster N, fort- 
sselter du i programmet. 

(SAVE FORMAT) {Y} OR {N}? Y 
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SAVE UNDER WHAT FILE NAME? ? 
MAIL LIST 

(gem nyt format? 

gem under hvilket tilnavn?) 

Du ser, al programmet skriver det 
filnavn, som blev benyttet, da din 
datafil blev geml eller indlsest p& di- 
sken. Pa denne made sammenkas- 
des poster og formatfller. s5 du ikke 
behover at huske forskellige navne. 
Pa dette sted i programmet vil alle 
formatfiler med navnet MAIL LIST 
blive slettet. nar den nye formatfil 
gemmes. Modsat datafiler vil der ikke 
blive lave! en kopi af sidste version af 
formatfilen, nar du gemmer en retlet 
eller ny fil med samme navn. Hvis du 
onsker at gemme det gamle format, 
kan du aandre navn pa formatfilen p& 
dette tidspunkt og taste <RETUR>. 

Programmet vil nu ga frem til det 
sted, hvor labels bliver indsat i printe- 
ren. Spring det folgende over, hvis 
du har lyst, fordi de naasie par afsnit 
omhandler det tilfaalde, hvor bruge- 
ren indlseser et allerede defineret 
format. 

PREDEFINED FORMAT 
(allerede defineret format) 

Hvis du taster P i Mailing Labels 
menuen, vil folgende blive vist pa 
skeermen: 

LOAD FORMAT FROM WHAT FILE? 
? MAIL LIST 



(fra hvilken 
Saases?) 



skal format et tnd- 



Efter sporgsmalstegnet skriver 
programmet navnet pa det sidst be- 
nyttede filnavn. Hvis MAIL LIST er 
den onskede formatfil, tast <RE- 
TUR>. S£ snart filen er indlaast, 
sparger programmet: 

DO YOU WISH TO REVIEW YOUR 
FORMAT AND/OR MAKE CORREC- 
TIONS {Y} OR {N}? 

(onsker du at se dit format og/eller 
asndre i det?) 

Dette er det samme spergsmal, 
som blev stillet dadu forst definerede 
formatet. Hvis du ikke er sikker pa, 
orn det format, du har mdlsest, er det 
korrekte, kan du kontrollere det pa 
nuveerende tidspunkt. Dette er ogsa 
del rette tidspunkt at foretage en 
mindre asndring til et engangsjob. 
Tast N. Sksermen svarer: 

SAVE FORMAT? (Y) OR {N} 

(gem format?) 

Del kunne godt se ud, som om du 
gentager, hvad du allerede tidhgere 
har gjort, men det giver dig mulighed 
for at gemme et aandret format eller at 
gemme det samme format under et 
nyt navn eller pa en ny diskette. Tast 
N. Programmet svarer sa: 

INSERT SINGLE ROW TRACTOR 
FEED LABELS RUN TEST LABELS 
TO HELP POSITION LABELS 

PRESS (T}EST LABEL 

{CJ-HOOSE RECORDS 



(indsast enkeltsporede labels med 
traktorfodning 

kor TEST LABEL-programmet for 
korrekt placering af labels) 

<T> - TEST LABEL-programmet 
<C> = WELG POSTER 

Hvis du taster T t vit du fa udskrevet 
Jinjer indeholdende stjerner. Antallet 
af linjer og stjerner svarer til labelens 
storrelse og format. Indsaat labels i 
din printer, saledes at linjerne star 
korrekt pa labelen. Nar dine labels er 
rettet ind, tast C for at fortsastte til 
Print Options menuen, hvor du kan 
udvaelge de poster, der skal ud- 
skrives. 

PRINT OPTIONS MENU 
)A)LL RECORDS IN FILE 
(S)ELECT IMDIVIDUAL RECORD 
{FjIND RECORDS WITH COMMON 
FIELDS 

(E)XIT TO MAIN MENU 

(PRESS THE APPROPRIATE KEY} 

(udskriftsmenu 

<A> = alle poster t fil 

<S> = udvaslg enkelt post 

<F> = find poster med fselles felter 

<E> = retur lil hovedmenu 

(Veelg den onskede funktion)) 

PS dette tidspunkt beslutter du, 
hvitke poster du snsker at udskrive. 
(Onsker du pa et tidspunkt at forlade 
denne menu -far eller efterudskrift- 
tast E for at returnere til hovedmenu- 
en.) Du har folgende funktioner til 
radighed: 




1 OOO.stk. hyide edb-lisjer 240 x-1 2 ' ' (A4) . 
med perforationer iprafcfisk kasse 
med rpaarehandtag. JJge til at basre 
hjeiji sammen med bee'reposerne fra 
supermarkedet. ■ 

Ring og faoplyst den loKale forhandler 
hos: . '■" . • • 

Data System ApS 

Henrik Syndergaard , Data System ApS 

Ksrelmsgervej 14 9330 Dronnlnglund . Telefon (08) 84 1911 



husbehov 




39 



ALL RECORDS IN FILE 
(alle poster I fil) 

Printeren starter udskrift Ira post 
nummer 1. indtil hele din datafil er 
udskrevet. Henl en kop kafte, hvis 
der er tale om en stor fil. 

SELECT INDIVIDUAL RECORD 
(udveBlg enkelt post) 

Dette giver dig mulighed for at ud- 
skrive en enkelt label efter eget valg, 
Herved kan du lave sidste ojebliks 
rettelser eller udskrive et par poster 
ud af hele din datafil. Du bliver 
spurgt: PRINT WHICH RECORD? 
(hvilken post udskrives?). Indtast 
postens nummer og tast <RETUR>. 
Hvis du Indtaster et hojere nummer 
end storrelsen af din datafil, vil du fa 
en feflmeddelelse. Du er nodt til at 
sknve noget for at korrime tilbage til 
menuen. 

FIND RECORDS WITH COMMON 
FIELDS 

(find poster med fselles feiter) 

Denne sogerutine virker efter sam- 
me princip sorn under "vis"funktio- 
nen i Datafile-programmet. Skasr- 
men viser alle feltnavnene for at hjEel- 
pe digs med at sege. Den felgende 
liste er fra den datafil, vi kaldte MAIL 
LIST. I dette eksempel vil vi ssge 
efter alle efternavne, der begynder 
med S. 

FIND RECORDS WITH 
COMMON FIELDS 

1 EFTER NAVN 

2 FORNAVN 

3 KODE 

4 ADRESSE 



ENDNU ENGANG 




COMMODORE 128 0 


6995,00 


COMMODORE 12S 


3.295.00 


COMMODORE 64 


1995,00 


COMMODORE 1541 


2.400.00 


COMMODORE 1570 


3195,00 


COMMODORE 1571 


3.695,00 


COMMODORE 1901 


3995,00 


COMMODORE 803 PRINTER 


2.195,00 


THE FINAL CARTRIDGE 


595,00 


64 MIRAKEL MODEM 


1.695,00 


SEIKOSHA PRINTER SP-1000 


3795,00 


VI HAP NEUTRALE X1DEX TIL 


1.195.00 


ELLER 100.00 FOR 10 STK. 




Vi sender over hete norden. Ring og rfien snak ei- 


let Ik Ulsend! el kalalog. 




Forlnnsvis postotdre. 




HOME DATA 




Tlf. 06 17 94 99 




Birksovej 8 




8240 Risskov 




Hverdageefferkl. 16.00 


+ hele weekenden 





5 BY 

6 LAND 

7 POSTNR. 

8 TELEFON 

WHICH FIELD IS TO BE 
SEARCHED? 1 

(find posler med fae-lles feller) 

(hvilket felt onskes der segl i?) 

ENTER (COMMON ITEM} (THE EN- 
TIRE STRING IS NOT REQUIRED) 

(EFTERNAVN} ?S 

SEARCHING RECORD # 

hvoretter du vil olive sendt tilbage lil 
Print Options menuen. 

Hvis du havde mdtastet SWY- 
KOWSKI som efternavn, ville du kun 
fa udskrevet de poster, som nojagtigt 
svarede hertil eller som begyndte 
med SWYKOWSKI. 

I erhvervsejemed kunnedu for ek- 
sempel bruge dette til at udskrive 
adresselabels efter postnummer. 
Det erogsa muligt kun at udskrive de 
poster, soin har en speciel kode i 
postens KODEfelt. 

DFREPORT INSTRUKTIONER 

Ligesorn med DFMail indlasser du 
DFReport ved hjaslp af Print Options 
menuen fra Dataflle, og igen er det 
nodvendigt, at der hgger en datafil i 
hukommelsen, saledes at der er no- 
get at skrive ud. 

Report Printout menuen virker li- 
gesorn DFMail. Hvis du taster E, gen- 
indleeser du Datafile i hukommelsen 
uden at odelsegge data. O lukker 
filerne og afslutter programme!. Hvis 
du slutter der. siettes alle data. Gar 
kun dette, hvis du ikke har foretaget 
opdatennger i poster, og hvis du har 
gemt din aktuelle datafil pa diskette. 
Du bliver advaret, hvis dette Ikke er 
tllfeeldet. M indlasser programrnet 
DFMail direkte, uden du behover ga 
omvejen via Datafile. 

LIST RECORDS UNFORMATTED 
<udskriv poster uformatteret) 

Denne funktion er den nemmeste 
made at fa en udskrift af din datafil. 
Taster du L, far du: 

< PRINT OPTIONS MENU} 

<A)LL RECORDS IN FILE 

{Sj ELECT INDIVIDUAL RECORD 



(F}IND RECORDS WITH 
COMMON FIELDS 
{E}XITTO MAIN MENU 

POSITION PAPER IN PRINTER 
AT TOP OF PAGE 
(indtast faslles tegnfolge (hele stren- 
gen er ikke pakrasvet) 

soger i post nummer) 

Har du fulgt ovenstaende anvis- 
ninger. vil post nummer (#) vsere et 
tal. der taeller op. indlil programmet 
finder en post, hvis EFTERNAVN- 
felt begynder med S. Denne post vil 
blive udskrevet, og sogningen vil 
tortsaette. Hvis du tidligere har sorte- 
ret denne fil efter efternavn, vil alle 
S-erne blive skrevet ud i alfabetisk 
orden. Programmet fortsaatter sag- 
ning, indtil der ikke er flere poster, 
(PRESS THE APPROPRIATE KEY} 

(udskriftsmenu 

<A> = alle poster i fil 

<S> = udvselg enkelt post 

<F> = find poster med fselles feiter 

<E> = retur til hovedmenu 

juster papir i printer til start af side 

(vaslg den onskede funktion)) 

Denne menu virker nojagtigt som 
den i DFMail, med en enkelt undta- 
gelse. I stedet for at centrere din 
adresselabel, skal du kore din printer 
frem til toppen af neeste side. En 
post, der bliver skrevet uformatteret 
ud, far sine data udskrevet i raakker, 
hvilket er frads med papiret. Selvom 
denne udskrift gar hurtigt og nemt, er 
den meget anvendelig. Du kan f.eks. 
skaare listningerne ud og kteebe dem 
op pa kartotekskort eller indsastte 
dem i ringbind. 

PRE-DEFINED FORMAT 
(eksisterende format) 

Nar du taster P. far du: 

LOAD FORMAT FROM WHAT FILE? 
MAIL LIST 

(indlaas format fra hvilken fil?) 

Indtast navnet pa den onskede for- 
mats og last sa <RETUR>, Navnet 
pa den sidst indlasste datafil vil blive 
skrevet pa skaermen. Du kan over- 
skrive dette navn, Sksermen viser sa; 
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HER ER DIN 
FORHANDLER: 

ABSALONDATA 

2860SOBORG 

01671193 

AMELEKTRONIK 
8900 RANDERS 
0644 1540 

BETAFON 
iSTEDGADE 79 
1650KBH.V 
01 31 02 73 

BMP DATA 
POSTBOKS 41 
3330G0RLOSE 
022781 00 

DATA PLUS 
BOKS 17 
8970HAVNDAL 
06470621 



LEG & HOBBY 
JERNBANEGADE 42 
9460 BROVST 
08231098 

POULSENS 
COMPUTER CENTER 
CITY 2, 304 
029909 77 

T J. DATA 
2630 TASTRUP 
02521485 

AgAfiddata 

2630 TASTRUP 
02993221 



ALT UNDER EN HAT 



SUPER DUMP 802 DUMPER GRAFIK TIL DIN 802 PRINTER U/OMBYGNING 
MED HURTIGFORMATERING OG D/C DISKTURBO' 



MER LIN FACE C+! DET RENE TRYLLERI 

NTERFACE TIL COMMODORE OG DIN CENTRONICS PRINTER: 
DUMPER GRAFIK OG ER KOMPATIBEL MED VIZAWR1TE!!! 

SUPER PLUS MODUL TIL EXPANSlONSPORTEN 

G0R BRUG AF HELE 128'ERENS TASTATUR I 64 MODE!!!! 
SUPER PLUS HAR OGSA: (NDBYGGET MAS K I N KODE MONITOR 
D/C DISKTURBO 
TURBO FORMATERING 



248.00 

948.00 

228.00 



PRO LOGIC DOS 35 GANGE HURTlGERE LOAD FRA DIN 1 541 'ER . 

PRO LOGIC DOS TIL DREV NR. 2 

PRO LOGIC COPY 



1495.00 

moo 

198.00 



EPROMBRflENDERE TIL COMMODORE: 

DELA 1 0P TIL 1 6KBYTES M/SOFTWARE PA DANSK NATURLIGVIS 

INCLUSIV EPRGMAUTOMATT1L BASIC PROGRAMMER. 

DELA 2 OP TIL 32KBYTES My SOFTWARE PA DANSK NATURLIGVIS 

VI LEVERER (SELVF0LGEUG) BR/ENDEREN I HUS! 

MER LIN PP-64 M/32K MODULGENER ATOR (PASSER OGS AT1L SX-64) . 
MED SOFTWARE PA CARTRIDGE OG DANSK VE JL.EDNING . .SADAN' 



QUICKBYTE20PTIL128KBYTES M'AUTQBANKSWITCHING 

ALLE MENUER (OG UNDERMENUER) PA DANSK (VI ER JO DANSKEREI) 
ALLE FUNKTIONER ER SELVFOLGELIG TASTE STYREDE! 

EPROMSLETTERE? JA NATURLIGVIS: 

HIGH SPEED ERASERSLETTER6EPROMSPA3(TRE)MI NUTTER 

JA SELVF0LGELIG MED INDBYGGET TIMER. HVAD ELLERS! 

SUPER ERASER S LETTER 30 EPROMS PA MAX . 6 MINUTTER 

MED MAGNETKONTAKT FOR ON/OFF. 



498.00 
678.00 
1248.00 
1495.00 



MOTHERBOARD TIL DINE MODULER: 

DELA 4 BOARD ME D 4 PORT E OG TRYKKNAP VALG AF MODUL 

MED INDBYGGET RESET. 



MER LIN 4 BOARD MED 4 PORTE FOR EPROMKORT. MED INDBYGGET .. 
MENU OG PROM STYREDE FUNKTIONER. TASTEVALG OG ON/OFF. 



628.00 
799.00 

488.00 
682.00 



CT J 5 BOARD MED 5 PO RTE FOR MODULER. ON/OFF TIL HVERT 695.00 

MODUL SAMT ON/OFF FOR HELE KORTET. PASSER TIL DE FLESTE 8K MODULER. 

GUF TIL SPILLEPORTEN: 

NYT DYNAMITMODUL TIL CBM64/12&. POWER CARTRIDGE MED EN UTROLIIG GOD MASKIN- 
KODEMONITOR. TAPE TOOL. AUDIO. TURBO DISK, TURBO TAPE, TOTAL BACKUP (BADE DISK 
OG TAPE ). DUMPE R GRAFIK FRA ALLE PROGRAMMER. DUMPER GRAFIK TIL SA GODT SOM 
ALLE PRINTERE. JA SELVF0LGELIG KAN DU PRINTE DIN FAVORIT GRAFIK PA 802'EREN (IN- 
GEN OMBYGNING ELLER ANDRE EKSTRA OMKOSTNINGER)! 

DIN POWER CARTRIDGE LEVERES I SMART PLASTPAKNING (IKKE NOGET MED GEMBRUGS- 
PAP) LIGETIL DIN DATAHYLDE. OG PRISEN ERKUN 695.00 



JOYSTICKS: 



QUICKSHOT II MED AUTOFIRE 

QUICKSHOT IXMED LYSDIODER 

PRO 5000 -DEN NYE TURBO MODEL 

LINDY MOUSE SYSTEM 



KUN: 138.00 

KUN: 198.00 

KUN: 228.00 

KUN:598.00 



D/C TRADING 



SOFT- & HARDWARE 

9240 NIBE * 08 35 33 44 

DELA/MERLIN/ROSSMULLER/CTJ 



^ fortsat fra side 40 

DO YOU WISH TO REVIEW YOUR 
FORMAT AND/OR MAKE CORREC- 
TIONS (Y) OR {N>? 

(onsker du at se dit format og/elier 
asndre i del?) 

Taster du Y, kommer du gennem 
Define New Format rutinen. De aktu- 
elle vserdier af dit format vil blive vist. 
Du kan sendre dem ved at overskrive 
dem og taste <RETUR>. Tast <RE- 
TUR>, hvis du accepterer vasr- 
dierne. Hvis du taster N, far du: 

SAVE FORMAT (Y} OR {N}? 

(gem format?} 

Har du foretaget nogen rettelser, 
fortsastter du med at gemme dit for- 
mat ved at taste Y. Hvis du beholder 
det samme filnavn. vil du overskrive 
det gamle format. Taster du N, vil du 
fortssette til Print Options menuen, 
som tidligere er beskrevet 

DEFINE NEW FORMAT 
(deflner nyt format) 

Denne rutine udformer et format helt 
efter dit onske. Det er en god ide forst 
at skitsere rapporten pa et stykke 
ternet papir. Du ma tage stilling til 
folgende: 

1. Hvor mange tegn bred rna rap- 
porten blive? Op til 136 tegn kan 
udskrives, hvis din printer kan Ware 
taet (compressed) skrifl. 80 tegn er 
det normale. Mindre rapportb redder 
end 80 tegn vil blive udsKrevet med 
lige venstremargin. 



REPARATION 

Er microdatamalen gaei 1 
stykker? 

Ring og la en snak om problemet, eller 
send datamaian til os med posten. 
Vi reparerer huriigt og billigt og vi giver 
gerne el lilbud farsl. 
Vi sselger ogsa reservedele og lilbehar 




GR0NH0J 
elektronik 

v. Frodfl Harnlz 

Monsiedvej 35 

7470 Karup 
Til. 06-66 11 56 



2. Hvad skal overskriften vasre? 
Du har mulighed for op til 4 Hnjers 
overskrift. som vil blive udskrevet 
centreret overst pa siden. 

3. Hvor mange kolonner har du 
brug for? Dette afhsenger af, hvilke 
fetter fra din datafil. du vil udskrive. 
Du har mulighed for op til 8 kolonner. 

4. Hvor mange tegn bred er hver 
kolonne? Begransningen ssettes af 
den samlede bredde af kolonnerne. 
Det totale antal tegn for disse er 80 
(eller 136, hvis du udskriver i tset 
skrift) med to tegn rnellem de enkelte 
kolonner. Hvis du vaslger 8 kolonner 
har du 76 tegn tilbage til dine postfel- 
ter (14 tegn bruges til mellemrum). 

5. Hvilke postfelter skal vsere i 
hvilke kolonner? Ligesom da du for- 
matterede DFMail adressetabels, 
kan du kombinere op til 3 postfelter i 
hver kolonne. 

6. Hvad skal navnet pa hver kolon- 
ne vaere? Et kolonnenavn kan ikke 
vasre lasngere end bredden af ko- 
lonnen. 

7. Far du brug for at sammeniaslle 
indholdet af en kolonne? Hvis ja, sa 
mk du kun bruge den sidste kolonne 
til sammentaslling. Denne kolonne 
ma kun indeholde eet felt med nume- 
riske data. Der vil ikke blive oprettet 
lige margin. DFCALC giver dig mu- 
lighed for at lave mere sofistikerede 
rapporter. Prov at huske laengden pa 
alle feller i den datafil, som skal bru- 
ges i rapporten. Hvis de data, der 
ligger i det pagasldende felt, er Isen- 
gere end bredden af rapportkolon- 
nen, vil de sidste tegn blive beskaret. 



Sprite Editor 

Dette program hjaslper dig med pro- 
grammeringen af sprites, og her er 
de taster du skal bruge: 



CURSOR OP OP 

CURSOR NED NED 

CURSOR H0JRE H0JRE 

CURSOR VENSTRE VENSTRE 

RETURN PLOT, SLET 

CLR NY SPRITE 

F1 PRINT DATA 



Frie Blokke 

Dette program er til diskettestation, 
og hjaslper dig med at holde rede pa, 
hvor der er nogle frie blokke, og hvor 
mange. 



Swish! 

Dette program kan bruges pS din 
Commodore 64 eller 128 i C-64 
mode. Der behoves to joysticks. 

Hvis du - nar du horer navnet pa 
dette program - straks kommer til at 
tsenke pa heste, vseddelobsbaner, 
gambling osv, rna du tro om igen. 
Horse er nernlig navnet pS et basket- 
ball-spil. 

Reglerne er simple: Hver gang du 
scorer, skal din modstander udfare et 
skud magen til dit. Hvis han rammer 
forbi, tildeles han et bogslav fra ordet 
"Horse". Hvis han scorer. far ingen 
af jer et bogstav, og I fortsastter rned 
at skyde. Men hvis du skyder forbi, 
far din modstander lov til at skyde 
forst. Den forste spiller, som far alle 
bogstaverne i "Horse", har tabt. 

For at spille Horse, skal man veere 
to spillere med hver sit joystick, og 
heist med et godt boldoje. Du styrer 
spiller 1 med et joystick i port 2, og 
din modsptller styrer spiHer 2 med et 
joystick i port 1 . 

Du begynder spillet med at flytte 
din spiller hen tit det sted pa. banen, 
hvorfra du vil skyde. Derefter trykker 
du en gang pa skydknappen for at 
gore War til skuddet. Sa holder du 
skydknappen trykket nede. hvorved 
du kan kontrollere boldens bane. Nar 
du synes, at bolden er komrnet hojt 
nok op, slipper du knappen, hvor- 
efter bolden begynder at falde. 

Bolden afslutter sin stigning i en 
psen kurve og begynder at fatde. Den 
nasrmer sig kurven og swish! - er der 
mal! En klokke ringer, og ordet 
"Good" kommer frem pa sksermen. 

Nu farer din modspiller (spiller nr. 
2} over og henter bolden og begyn- 
der at dri ble som en gak Han skynder 
sig tilbage til det sted, hvorfra du 
fyrede dit skud af. Han skal placere 
sig inden for 16 pixels fra de x.y- 
koordinater. hvorfra du skod. Ellers 
kan han ikke ramme kurven, og han 
vil blive tildelt et bogstav. 

Sa spiller 2 placerer sig, der hvor 
han mener, du stod far (du har nernlig 
vaaret smart: du flyttede dig, da du 
havde skudt) og trykker skydknap- 
pen. Hans sprite skifler fra at drible til 
klar til skud. Han trykker nu skyd- 
knappen ned, og holder den nede, 
og bolden svasver yndefuldt op mod 
kurven. 

Boing! rammer bolden netringen 
og hopper hojt op i vejret. Spiller 2 
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Dette nye operati vsystem bygget ind i 
et cartride bruger ingen hukommelse 
og er der altid. Kompatibel 
med 98% af alle programmer. 



THE FINAL CARTRIDGE 

Det forste operatavsystem der fungerer uden for 
Commodore 64*) 




Utility 
of the year 
1985 



DISK TURBO - 6 gange hurtigere Ipad- 
ing -8 gange hurtigere saving. 
TAPE TURBO • 10 gange hurtigeje, 
selv med filer - normale Commodore 
ordrer - kompati bel med standard 
turboer. 

CENTRONECS INTERFACE • kompa- 
llbelt med alle kendte Centronics prirv 
tereog Commodores printerprogram. 
Prlnler alle Commodore- grafiktegn 
og konirolkoderivigtigt ved 
programlistninger). 

SIOERM DUMP FACILITET - af lav- og 
hajoplosningsskasrme samt mulli- 
color!! Printer fuld side med 12 nuan- 
cer at gratoner ved multicolorskserme, 
selv fra programmer som Doodle, 
Koala Pad, Printshop etc. Soger au- 
tomatisk adresser for skaermDilledet, 



24K RAM EKSTRA TIL BASIC- 
PROGRAMMER ■ 2 nye kommandoer 
"Memory Read- (lass i hukommelsen) 
og Memory Write) (sKriv I hukommel- 
sen). Detlytterl92bylesmed maskln- 
sprogshasdghed overall I de 64K 
Ram hukommelse i CBM 64. Kan bru- 
ges med strange og variable. 
BASIC 4.0 KOMMANDOER • som 

Dioad, Dappend, Catalog. 

BASIC WERKT0J (N YTTEORDRER) - 

med Auto, Renum (incl. Goto 6g Go- 
sub), Find. Help, Old etc 

•>Ogsa128-i64 mode 





Flerfarvet udskrllt dlrekte Ira skarm 
Dump. 

FORPROGRAMM EREDE FUNKTIONS 

TASTER: Run, Load, Disk komman- 
doer, List (fjerner llstbeskyttelser!). 

TASTATUR ekstrafuntioner - 

giver dig mulighed for at fjerne dele 
af llnier; stoppe og fortseette listnln- 
ger; bevaage cursoren til nederste 
venstre hjame. Pokes og Sys I hexa- 
declmaltal. Type-kommando far din 
printer ill at fungere som skfive- 
maskine. 

K0B DEN HOS: 



KOMFORTABEL UDVIDET MASKIN- 
KODEMONITOR: • med scroll op eller 

ned. Bankswitching, etc. - optager 
ingen ekstra hukommelse! I 

RESET KNAP - reset til monitoren; 
resel med OLD; reset III hojoplos- 
ningsprintning: resetter ethvert be- 
skyttet program! 




12mdr.sgaranti 
DANSK BRUGERVEJLEDNING 



JDTblaliiifoiTnation 

Jernbanegade 7 ■ Nsestvea 

Tlf.03-726888 

- eller i din lokate computerforretnrng 





Bedre sent end... 

Sadan ser den ud, Commodores 
diskslatio-n til CI 6 og Plus/4. Siden 
disse maskiner her faet en renais- 
sance er der dukket adskilligt udslyr 
op. Og endelig har Commodore tagel 
sig sammen og introducerer nu en 
diskstatlon "1551". Den funktio- 
nerer !idt anderledes end man er vanl 
til med Commodores diskdrives, Ma- 
skinen forbindes IKKE tit den serielle 
port, men til expansion-porten. Del 
sker med et stik — ses ligge oven pa 
diskdrivet-som minder rnegetom et 



indstiksmodul. 1551 har en arbejds- 
hastighed som er ca. 4 gange hurti- 
gere end 1541. Forrnatteringen sker 
pa 20 sekunder i modsastning til godt 
90 sekunderfor en 1541 . Hemmelig- 
heden er naturligvis at kommunika- 
lionen nu sker paraliell og ikke lang- 
sommeligt serielt. 1551 hardesuden 
en raskke egne kommandoer og svar 
pa tiltalen. Maske kommer der snart 
et forbindelsesfed til f.eks, 64eren. 
Enheden er i hvert fald rimelig billig. 




Amiga andele 

Amigaen saslger bedre end Atari gcr i 
USA. Del har en markedsunderso- 
gelse vist. Undersogelsen er baseret 
pi salg af software til de forskellige 
maskiner. Amigaen har 3,4% i styktal 
mod Atari ST'erens 1,5%. Ser man 
pa pengene er omsastningen for 
Amiga 1,5 % mod Atari 4STS 0,7 %, 
Storstersom ssedvanlig IBM. I styk- 
tal drejer det sig om 42 % og i penge 
71,6%. Lige efter kommer Commo- 
dores 64/128 med 24,2 % i styktal og 
9,2 % i penge. 



Mere plads 

Mange bruger C-64eren til at irtd- 
samle maleresultater- Men meget 
snart finder man ud af, at pladskapa- 
citeten er lige Nile nok. Ogsa selv om 
man af og til lader resultaterne ud pa 
en disk. Men nu er der kommet bade 
en 10 og en 20 Mbyte harddisk til 
64eren. Det er det amerikanske firma 
InConTrol Inc., 102 Baughman Ln, 
Ste. 301, Frederick, MD 21701, der 
har lavet enhedeme. De bestar af en 
metalboks med en almindelig 170 
Kbyte floppy samt stremforsyning og 
harddisken. Prisen er i USA hen- 
holdsvis 895 og 995 $. Som en tom- 
melfinger-regel leegges 25-30 pet. til 
nar disse enheder engang dukker op 
her i landet. 



Stor sogning 

Commodores stand pa bade Her- 
ningmessen og den nyligt overstae- 
de Kontor og Data messe t Keben- 
havn havde meget stor interesse. 
Ikke mindst pa grund af Amigaen. 
Det var medi-interfacet og det tasta- 
tur der blev prassenteret, digiUzeren 
og ikke mindst Sidecar, som stjal 
billedet. Og pa fotoet ses Michael 
Holm, fra Commodore i gang med at 
forklare, hvordan man bade kan have 
Amigaens program korende og sam- 
tidig have adgang til MS DOS. Side- 
car var udrustet med en 20 Mbyte 
harddisk. 
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Commodore igen pa plus&iden 

Efter nogle meget uhyggelige mane- 
der med store underskud er der igen 
kommet overskud h«os Commodore 
International. De nyeste tal er fra det 
kvartal, som slutlede' 30. juni. Her er 
registrerel et overskud pa 1,2 million 
S. Ikke meget i forhold til et netto- 
salgstal pa 208,6 millioner $. Men i 
samme Kvartal t fjor matte Commo- 
dore International konstatere et tab 
pa 131.9, sa fremgangen er tydelig 
nok. Del er isasr 1 28eren ( PCerne og 
Amigaen som har sat gang i salgstal- 
lene. Men medvirkende til oversku- 
det er ogsa at Commodore har skaret 
1500 folk fra, hvilket svarertil 30 pet. 
at de ansatte. 



Commodore made in Taiwan 

Commodore i Vesttyskland har haft 
enorm succes. Ikke mindst deres 
model 128D har gjort lykke bade i 
Europa og i USA. Men nu skal denne 
model samrnen med C64C laves i 
flernesten. Det skal PCTOeren ogsa 

- det er altsammen et sporgsmal om 
at holde priserne sa lavt som muligt. 
Pa de produkter. hvor f.eks. finish og 
kvalitel spiller med, vil man fortsat se 
Made in Westgermany. Det er PC40 

- den nye ATer Pc20 og Amigaen, 
samt Sidecar og hvad der matte kom- 
me af lignende produkter. der produ- 
ceres i Vesttyskland. lovrigt gar sal- 
get af Amigaerne strygende i Vest- 
tyskland. Ingen troede rigtigt pa at 
man vllle na de spaede salgsta) pa 
7.000 inden udgangen af juli. Men de 
blev s!9et med nogle hundreds. I 
USA har man pa tre maneder solgt 
30000 Amigaer. 



Radio Data 

Forst kom Radio Rita nu kommer DR 
ogsa med Radio Dala. For med start 
5. oktober sender man et magasin- 
program omkring hjemrnecornpute- 
re. Det erbl.a. Undervisningsafdelin- 
gen, som star bag udsendelserne. 
De to maskiner, man viB sende pro- 
grammer til et dels C64 og Amstrads 
maskiner. Men da der ogsa bliver 
sendt konverteringsprogrammer vil i 
hvert fald de af program merne, som 
er skrevet i microsoft basic kunne 
konverteres til andre maskiner. Ud- 
sendelserne starter 0.15 sendag nat 
pa P2 og langbelge, sa der skal nok 
vaere en og anden, som er lidt klatojet 
om rnandagen! 



Amiga Turbo 

Det er efterhanden velkendt, at Ami- 
gaens 256 Kbyte er alt for lidt albue- 
rum. 512 Kbyte RAM er kun lige til 
ollet. Vil man arbejde rigtigt sericst og 
det med en hastighed som man kan 
vasre bekendt at referere. ja sa ma 
man forelobig ga utraditionelle veje. 
Som f.eks. at ksbe en Amiga Turbo 
Chassis. Som det ses pa fotoel er 
den en kasse der forbindes til multi- 
Stikket {100 ben) pa siden af Amiga- 
en. For de ca 5500 $ herlighederne 
koster far man sS til gengaald bSde en 
68020 CPU og en matematisk Co- 
processor 68881. Begge er aagte 32 
bit enheder og arbejdsternpoet er pa 
1 4.28 MHz - det dobbelte af origina- 




lens. I kassen er ogsa en 20 Mbyte 
harddisk og en stromforsyning stor 
nok til ogsa at forsyne f.eks. ekstra 40 
Mbyte harddisk. Interesserede kan 
ringe til Catiformien 619 566 3911. 



Ind pa linje 

Jeg hader det: Disk drivets motor 
larmer op og det lyder som om en 
betornhammer er starlet inde i drivet. 
Arsagen er de ubamhjertige forscg 
pit at forhindre piratkopiering af en 
software. Men det lykkes som be- 
kendt meget sjasldent. Hvad der til 
gengseld ofte er resultat er at drivet 
kommer ud af justering, Sa kommer 
der en dyr regning og hvad der er 
endnu vaerre, man ma undvaere sin 
diskenhed i en rum tid- Men nu erder 
hjaslp pa vej; For omkring et par 
hundrede kroner (200) kan man fa fat 
i Robtech's "Magic Disk Kit". Med 
s-aettet kan man justere tingene pa 
plads igen, selvorn man paradoksalt 
nok ma hare pa de samme ban kelyde 
undervejs. Set i London 01 847 
4457. 



Farve-print med sprites 

Et af de storste problemer, nar man 
vil printe et skcermbillede ud fra f.eks. 
et spil er brugen af sprites. De dukker 
ikke op pa printet, hvis man overho- 
vedet er i stand til at dumpe skaerm- 
billedet. Men nu har det schweitziske 
firma Hilcu-Ware, 3063 Ittigen. Klaret 
asrterne. Det sker med modulet Su- 
perpic-2064-Color-Modui. Hva'be- 
har! Med det navn ma der |o komme 
noget godt ud af det. Og de gode er 
14 farver pS et- skasrmdump til en 
Okimate 20 farveprinter. Samtidig 
skulle man kunne finde og udprinte 
billeder fra hukommeisen, hvis sa- 
danne er lagret f.eks. i forbindelse 
med spil. Ogsa sprites kommer op til 
overfladen. Modulet er beregnet til 
Commodore 64. 




Afsked 

Commodore i Danmark skal have ny 
chef. Den hidtidige chef Kristian An- 



dersen skal i stedet fungere som 
direktor for salg og marketing i Euro- 
pa. Det er en ny stilling i en organisa- 
tion pa 16 mennesker. Kristian An- 
dersen er velkvalificeret til stillingen ■ 
Frankfurt. Commodore i Danmark 
har for 3. ax i trask vasret det sted, 
hvor der er solgt mest af Commodo- 
res produkter set i forhold til de mu- 
ligheder markedet giver. Regn- 
skabsaret 85 er netop afsluttet. Det 
gar frem til 30.6. og viste en netto 
omsastning pa 1 81 millioner mod 1 44 
aret for. Der er samtidig kommet et 
storre overskud ind. 1,7 millioner 
storre end i fjor og tallet er nu 17,5 
millioner for skat. Hvem der skal aflo- 
se Kristian Andersen ef endnu ikke 
offentliggjort. 
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Tips. 

af Bjarne V Jensen. 

Trichl 



KOMMA 

Kommaer kan va?re til stor hjeelp. nar 
der skal skrives tekst eller tal pel 
skaarmen eller printeren. F.eks. er 
det tilladt at skrive: PRINT. "TEST" i 
Stedet for: PRINT"(lO*spc)TEST". 
Hvls man ensker al skrive nogle tal 
(eller ord) i en lodret kolonne. kan del 
f.eks. gores sadan: PRINT,A 111 .B„, 1 C 
osv. Kommandoen SPC( ) kan ogsa 
bruges til placering af tekst, hvis man 
ikke kan lide de 4 fasie positioner, 
som kommaerne forarsager. 

Ud over at der spares plads i pro- 
gramme!, betyder det ogsa. at print- 
hastigheden foroges. Kommaer bru- 
ges ogsa i DATA-iinler til at adskille 
data. Hvis man har mange DATA- 
linier, hvor en del af tallene er 0 
(f.eks. sprites), kan man udelade dis- 
se nuller. blot man sarger for, at der 
er det korrekte antal kommaer. F.eks. 
er DATA 2,0,0,8.0,5 det samme som 
DATA 2„,8.,5. 

HURTIG CURSOR 

Hvis man synes, at cursoren bevas- 
ger sig for langsornt. nar man vil flytte 
den, kan dette sendres med kom- 
mandoen: POKE 56325,40. Man kan 
'frit vaelge Vcerdier mellem 1 og 255 
(1=meget hunig, 255=meget lang- 
som). Samtidig med at cursorens 
beva?gelseshastighed cendres, pa- 
virkes hastigheden. hvormed den 
blinker. Hvis man vil tilbage til den 
oprindelige hastighed, skal man skri- 



ve POKE 56325,60 eller taste RUN/ 
STOP-RESTORE, 

SEMIKOLON 

Brug af semikolon i printsastninger er 
ikke altid nedvendigt. F.eks. kan 
kommandoen: PRINT A$;B$; 
"TEST" skrives sadan: PRINT A$ 
BS'TEST". Hvis der star et semiko- 
lon eftersidste tegn i printsaatningen. 
vil naaste tekst, der bliver skrevet, 
komme i forteertgelse af det forega- 
ende. Hvis der ikke er et semikolon 
bagest, vil computeren skifte linie. 

IF-THEN-IF-THEN 

Hvis man forsoger at forage hastig- 
heden pa et program, kan man bl.a. 
asndre kommandoer som denne: IF 
X=1 AND Y=5 AND Z=8 THEN.-, til: 
IF X=1 THEN IF Y=5 THEN IF Z=8 
THEN... Den variable, hvis vaardi of- 
test er forkert, stilles forrest. De to 
loregaende tricks kan ogsa vaare 
med til at oge programhastigheden. 

Tl og TIS 

Der er sammenhaang mellem com- 
puterens to timer-variable Tl og TIS. 
TIS er et 24-timers ur, som stilles 
med kommandoen: Tl$="tlmmss" 
(timer, minutter, sekunder). Variab- 
len Tl er ogsa en slags 24-timers ur, 
men med den forskel, at tiden males 1 
tredsindstyvendedele sekunder. Tl 
kan ikke stilles pa samme made som 



TlS; men ved al stille pa Tl$ pavirker 
man samtidig Tl. Kommandoen 
TIS="000000" vil nulstille Tl. Kom- 
mandoen T1S= "000010" sastter 
TI=6O0osv. Tl kan f.eks. bruges til at 
undersoge, hvor hurtigt forskellige 
kommandoer bliver udfort. Det kun- 
ne f.eks. se sadan ud: 



10 T=TI:FORN=1T050 
20 A=5 ] 2 (el-A=5»5) 
30 NEXT:PRINTTI-T-4 



Firtallet i linie 30 er-indsat for at 
kompensere for den tid, det tager at 
udfore FOR-NEXT-lokken. I lir>ie 
20 anbringes den eller de komman- 
doer, man onsker at undersoge. 

HURTIG RUN 

I stedet for at skrive R-U-N (RE- 
TURN) kan man nojes med at skrive 
et bogstav (ligemeget hvilket) og 
derefter trykke SHIFT'et RUN- 
STOP. 

Computeren skriver 'syntax error', 
men starter alligevel programme!. 
Metoden kan ogsa benyttes som 
auto- run, nar man loader et program 
fra disk. Prov at skrive: LOAD 
"navn",&; og Iryk sa SHIFT'et 
RUN-STOP. Programmet loades 
nu fra disk og startes automatisk, nar 
det er loadet md i computeren. 
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STOPPESTED 

Nar man 1 sil program ensker, al 
computeren skal vente indtil der bli- 
ver trykket pa en last, kan del gores 
p3 utallige mader. En kort og effektiv 
metode er denne: POKE198.0: 
WAiT198,1:POK£198,0. Forst tom- 
mes tastatur-bufferen for evt, tidlige- 
re indtaslede tegn med kommando- 
en POKE198,G\ Derefter ventes der, 
indtl» et tegn ankommer til tastalur- 
lageret, og til sidst tommes tastalur- 
lageret igen. 

1541 -DISK-DRIVE 

Visse diskvserktfljer og visse kopibe- 
skyttede disketter kan anbringe disk- 
drivets lEesehoved i et ikke eksiste- 
rende spor (J,eks. spor 36). Del kan 
ogsa ske ved brug af kommandoerne 
block-execute og memory-execute. 
Hivs lassehovedet efterlades i spor 
36, og man bagefter prover at load'e 
et program, nasgter disk-drivel. Selv 
efter at have slukket for strommen og 
taendt igen, kan det staidg ikke lade 
sig gore at load'e noget; heller ikke 
directory. Den emeste made, hvorpa 
disk-drivet kan bringes ud al denne 
tejltilstand er ved anvendelse af en 
disk-kornmando som f.eks. OPEN 
15.8.15,"!" (return) CLR (return). 



TAPE SAVE 

Nar man SAVE'er et program pa 
band, giver man det som regel et 
navn, bestaende af op til 16 bogsta- 
ver. Men man kan sagtens bruge 
andet end bogstaver og tal; og man 
kan bruge mere end 16 tegn. Nar el 
program skal save'es, bruger man jo 
anforelsestegn. nar man skriver nav- 



net pa programmet. Sa derfor kan 
alle farvetasterne samt cursor-taster- 
ne bruges som en del af navnel. 
Ogsa tasterne rvs/on, rvs/off, clr og 
home kan anvendes. Man kunne 
f.eks. lade navnet starte med CLR 
{shifted clr/home). efterfulgl af WHT 
(Ctrl 2) sarnt RVS/ON (ctrl 9) og sa 
selve navnet (hojsl 12 tegn) og til 
sidst RVS/OFF (Ctrl 0). Nar program- 
met bagefter skal load'es ind, vil 
computeren skrive; FOUND navn. 
Men da det forste tegn i navnet er 
CLR, vil skeermen blive slettet umid- 
delbart efter order FOUND. Pro- 
gramnavnet kommer til at sta med 
hvid, negativ skrift i overste venstre 
hjorne af skaermen, Det er tilladt at 
bruge op til 255 tegn i navnet nar 
man save'er et program pa band, 
men kun de 16 forste tegn vil blive 
vist pel skcermen, ncir programmet 
load'es. Men alle 255 tegn vil blive 
gemt som ASCII-vserdier i tape- 
bufferen, nar programmet load'es. 
Tape-bufferen befinder sig fra adres- 
se 828 og fremefter. Tegnene kan 
vises pa skaarmen med f.eks. kom- 
mandoen PRINTCHR$(PEEK(addr)). 
hvor addr er den adresse, man on- 
sker at se. Visse turbo-tape-pro- 
grammer benytter sig af dette princip 
til at gemme selve turbo-koden i det- 
te omrade. Del kan ogsa benyttes i 
forbindelse med kopi-beskyttelse. 
idet man kan have hemmelige koder 
eller dele af sit program gemt her, 

SE I SEQ-FIL 

Nar man vi) se, hvad der star I en 
tilfseldig SEQ-fil og forsoger at prin- 
te hele indholdet ud pa skaermen, vil 
det som regel ga gait, eftersom der 



kan vsere tegn som teks. CLR/HO- 
ME eller farvetegn eller cursorflyuer- 
tegn. som kan gore det hele vseidtg 
morsomt at se pa. Det kan ogsa ga 
gait, hvis man forsoger sig med prin- 
teren. Den kan finde pa at skifte 
mellem de forskellige karaktersast el- 
ler m^ske oven i kobet skfite til graftk- 
mode. 

Jeg har fremstiHet et lille program, 
som sorterer alle den slags tegn fra. 
Desuden kan listningen stoppes og 
startes med mellemrumstangenten 
eller standses helt med return. Man 
kan ogsa udskrive til printeren, men 
da programmet er skrevet i BASIC 
gar det noget langsommere end m 
mindelig programlistning. Program- 
mets navn er "SEQ-FILE REA- 
DER" og er pa programsiderne. 



NY FORSIDE 

En regnvejrsdag provede jeg for spv 
at lave en forside, bestaende af tre 
sider, som skygger for hinanden 
Man kunne godt have fremstiHet det- 
te billede med POKE-kommando- 
er, men i BASIC vil dette tage tem- 
melig lang tid. Sa derfor har ieg for- 
sogt at gore det ved hjaelp af streng- 
variable. Programmet. der er lavet 
som en subrutine. benyttes ved fsrst 
at definere de tre'farver, som siderne 
skal have. Det gores ved at saette 
variablerne C1> C2 og C3 til de on- 
skede farvetal (0-15). Derefter kai- 
des rutinen med kommandoen; GO- 
SUB 1000. Rutinen sletter ikke det. 
der star pa den forreste side. Navnet 
pa dette program er "3-SIDERS 
FORSIDE" og erat finde pa program 
siderne. □ 
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^fortsatfra side 42 

holder vejret, stirrer spsendt. efter- 
handen som bolden kommer ned 
igen - og der er mal! Intel bogstav 
denne gang. 

Spillet fortssetter, med at spiller 1 
griber bolden og flytter lil et nyt sted 
for at lave endnu el skud. Sa Isenge 
han scorer, kan han ikke tabe. N3r 
han endetig rammer forbi, far spiller 2 
lov til at udfore det forste skud og har 
dermed fordelen, 

G0R DET MED STIL 

Dette er grundregterne; nu falger 
finesserne. For det forste kan du 
zendre din skydestil. Nar du forste 
gang trykker pa knappen, opdager du 
ikke bare, at du er ga.et i skudposi- 
tion. men ogsa at du ikke Isengere 
kan flytte din mand omkring pa skaar- 
men med joystick'et; han er fastlast 
Da dette sted, indtil skuddet er udf0rt. 

Hvis du nu skubber joystick'et 
fremad, mens du holder knappen 
nede for at starte skuddet, vil bolden 
stige opad i en meget stejlere bue 
end far. Dette hoje skud er specielt 
velegnet til skud ganske tat pa kur- 
ven. Bemserk at du ikke behover at 
holde pinden fremme, efter du har 
trykket pa skudknappen. Del hoje 
skud vaalges i det ojeblik, du trykker 
pa knappen, og bolden vil folge den 



valgte kurve, uanset hvad du derefter 
ger. 

Hvis du vaslger at skyde et lavt 
skud, peger du nedad med joy- 
stick'et n3r du trykker pa" knappen. 

Fordelen ved at vaslge et ho(t eller 
et lavt skud er, at - hvis du altsa 
scorer- tvinges din modstander til at 
lave et skud med samme bue. Fak- 
tisk kan han overhovedet ikke kon- 
trollere vinklen med sit joystick - 
bolden folger automatisk den kurve. 
du valgt. Det hoje skud kan vaare 
svaart, fordi bolden sommetider nar 
op over synsfeltet pa skcermen. Sa er 
man nodt til at stole p& sin tidsfor- 
nernmelse for at slippe knappen i det 
rette ojeblik. Det lave skud er - hge- 
som i rigtig basketball - vanskeligt, 
fordi det kraaver mere omhu. Des- 
uden er det meget svasrt at fa skud pa 
bagpladen til at ga i nettet. 

Dette er nemlig endnu en finesse 
ved spillet: At bolden bliver kastet 
tilbage fra bagpladen og derved kan 
ga i nettet. Hvis du - ved spiilets start 
- svarer "Y M (for JA) tit "bankshot", 
betyder det, at alle skud, der rammer 
bagpladen og gar i kurven, skal efter- 
gcres. Det er altsa ikke nok, at mod- 
standeren skyder i net, det skal ogsa 
ske ved, at bolden rammer bagpla- 
den. Men vi vil ikke anbefale, at du 
vaalger denne mullghed, far du er 
blevet mere trasnet i Horse. 
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Udover "bankshot" har du yderli- 
gere 2 vatgrnuligheder ved spiilets 
start. Du kan justere boldens hastig- 
hed, og du kan bestemme. hvor van- 
skeligt, det skal vzere at score. Sale- 
des kan du styre spiilets svasrheds- 
grad. 

Endelig har denne version af Hor- 
se noget, som det rigtige spil ikke 
har: et ur! Nar bolden rammer gulvet 
efter et skud, har man nojagtigl 7 
sekunder til at starte naeste skud. 
Uret er synligt pa skasrrnen. Dette ur 
Scetter lidt mere fart i spiliet. Det 
tvinger dig til hurtigt at gribe bolden 
og flytte til din skudposition. Du kan 
aendre dette tidsrum ved at aandre 
vasrdien af CT i lirije 260 i pro- 
gram met. 

Det var det hele. Vi haber. du far 
mange fornojelige timer med Horse. 

Naeste nummer 

I nseste nummer af RUN vil vi bringe 
to hjaalpeprogrammer, der vil give dig 
endnu mere glaade af din DATAFILE. 

Det forste hedder "Datafile fast 
print" og kan, som navnet antyder, 
ssette sastte hastigheden pa udprint- 
ningen af dine records betydeligt i 
vejret. 

Det andet, "DFCalc", omdanner 
dine database -filer til spreadsheet- 
lignende udprintninger. 

Pa gensyn i naaste nummer. □ 




NYHED!!! 

Ga ind til din forhandler eller 
kontakt os for at fa vores nye brochure 
med en samlet oversigt 
over alle vores programmer 
til Commodore 64 og 128 



&\x/\x/ 

SOFTWARE 



Trillegardsvej 208 • 8210 Arhus V 
TIf. 06 15 22 88 



-et vaeld af tilbud ogsa pa konto 



COMPUTERE 

Commodore 64 

Commodore 128 

Commodore 128D 

Commodore PC 10 II' 
Commodore PC 20 II' 
Commodore Amiga 
•= Excl. MOMS 

DATA SETTER 

Commodore 1 530... ... 



1995. 

2995. 

6495. 
15400. 
25400. 
15995. 



345.- 



pr md. 

• .200- 
■...200- 

• .360.- 



AM 



r.iTrm'n 



DISKETTESTATIONER 

Commodorel54l 2595. - .200 - 

Commodore 1 570 2985.- . . 200 - 

Commodore 1571 3885.- 200 

NYHED! 

TeKsidetiandlmgsprogram pa dansk 
med 80 karaaierer uden ai du skal kobe 
noget eksita - AI facilllelerne kan nasu- 
nes 

Undersirnging. led skfilt, spatieret sknfl. 

halv llnle op/neo. ordjusierlng Kr 495,- 
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• Nu kan du tinge til vor egen database p& sit 
01 -24 1 7 70, og fa de sidste nyheder mdenfot 
computere og tilbehor. Datatason korer 75i 

1200 BA UD. 



SKONSKRIFTS PRINTERS 

pr md. 

Commodore DPS 1 120 4995.- 220 - 

MicroscanMS15 4995.-.. .220.- 

Juki2200 4295.- .220.- 

Juki6i 00 parallel 5120.- 220.- 



MATRIXPRINTERE 



Commodore MPS 803 .. 
Commodore MPS 20OO. 
Juki 551 0 Ce ntronics .... 

JUW55I0RS232 - 

Juki 5520 Centronics, 

farve 

StarNL 10 

til Commodore 

Cilizen120D. 



2295.- 200 

7700.- 360.- 

5490.- 220 
6450.- .220- 

7195.- 270 

5595.- 220 
3995.- 
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IGA 




BEIAFON 



ISTEDGADE 79 • 1650 K0BE 
TLF. 01-31 02 73 



Vi lagerferer nu hele 
Dela programme! 

Uddrag af Dela programmer. 

SuperEpromkort256K 

Eprombrsenderl 

Eprombranderll 

Epromkort Dela-mo 

64K Ram floppy 

i6KRammodul 

64K Epromkort 

Userporl Adapter. 3 stk 

Motherboard 4 slots Bygg essei 

IC Tester 

Ringetierspeciaikaialog over DELA 
pnMuk 
ter 



568.- 
498.- 
678.- 
39.- 
648.- 
339.- 
238.- 
131.- 
498.- 
628.- 




MONITORS 

Commodore 1802 farve 
Commodore 1901 farve 
Commodore 76BM 

gron" 

Philips BM 75-22 

INTERFACE/MODEM 

Handic Modem 
75/1200-300/300. 



2895.- 
4485.- 

1600.- 
1380.- 



200.- 
200-- 

.200- 
.200.- 



1895.- 200 

incl. software 

335.- 
675.- 

Betafon Centronic Interface 995.- . .200.- 



CommodoreRS2332 . 
Handic RS232 



DIVERSE 

Disk Dobler Tang 

DisketteboxtiWOstk..... 
Diskettebox til 40 stk. 

m. 14s 

Diskette box til 80 stk 

Reset stik 

User Port stik 

Disketter dobbelt-sidet 

10 stk 

The Final Cartridge 

Videotex Modul 75/1200.. 

Stovhsette i formstobt plast 
til C-64. 1541 

NYHED: Dolphindos 2,0 
Murtlgloader 202 
Blokkepakun4sek.. 



39.- 
199.- 

265.- 
265.- 

45.- 

45.- 

99.- 
695.- 
765.- 

98.- 
985.- 200.- 
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RUN nr. 12 afslorer: 



Ja, endeiig bl&nder vi op for det, sa mange Isesere har ventet 
med Isengsel p£. 

Vi harkSret de heldige - og dygtige - hjemme-programmorer i 
votes fedseisdags-konkurrence. Del har taget sm tid, vil den 
skarpsindige vel nok antyde. men (iden gar hastigt nirdommer- 
komiteen jublende og entusiastisk kan nsermest bade sig i et 
Mount Everest af indsendte kassetter, disketter og listnmger. 

Sd vent bare spsendt pi RUN nr. 12-m£skeblevdetnetopdit 
program, der btev tastbrasndt pi komiteens gyldne skmrm. 



Salg af programmer 



Programlistninger fra bladet. 

Siden starten har vi solgl band og 
disketter med de programmer, der 
er listet ud i bladet. 

Fra og med i ar er prisen pa band 
og disketteversionen ens, nemlig kr. 
118,00. 

Skulle du mangle programmerne 
fra lidligere numre. har vi dem liggen- 
de helt tilbage fra starten. 

Nye samlinger 

For el ar siden samlede vi de 15 
bedste programmer fra RUNs forste 
ar, Denne diskette, der stadig Kan 
kobes, blev en sa stor succes. at vi 
nu har samlet de 15 bedste program- 



mer fra RUNs andetar. Pris ligeledes 
kr. 118,00. 

Superdisk nr.1 bestod af tre top- 
programmer fra RUN USA. Flere har 
spurgt, hvornar vi kornmer med en 
Superdisk nr.2. Den er vi i faerd med 
at lave nu, og den skulle ligge klar i 
slutningen af maneden, Disketten, 
der denne gang tndeholder fern pro- 
grammer, vil bl.a. besta af et virkelig 
godl lekstbehandlingsprograrn fra 
RUN i USA. Prisen pa Superdisk nr.2 
er ligeledes kr. 118,00. 



Privatregrsskab 

RUN's bestseller, 



hja?lper dig med at holde styr pa 
ckonomten. Du kan opstille budget- 
ter, indtaste faktiske udgifter, og se- 
nereforetage sammenligningerforat 
se, hvordan dit budget holder. Privat- 
regnskab fas ligeledes pa band eller 
diskette til kr. 198,00. 



Alle programmer fra RUN saeiges 
kun mod forudbetaling. Send be- 
lobet enten pa check eller giro 
(girokonto 1 4831 61)- og husk at 
skrive prgecis, hvad det er, du 
onsker. 



Privatregnskab. 



PLATIN UM UNIVERSAL D ISKETTE ™ 

• ANVENDES I ALLE 5V<T DREV 

(48-1 D, 48-2D, 96-1 D, 96-2D, dog ikke 9&-2D-HD) 

• 75% CUP-LEVEL (MARKE0ETS H0JESTE) 

• TOTAL 0VERFLADE TESTING, 0GSA MELLEM SP0RENE 

• >EGTE FLIPPI DISKETTE MED TYVEK COVER 

• PLATINUM ER >£GTE 96TPI DSDD - HVER GANG 

• SYNC0M PR0DUKTI0N HELT IGENNEM 

• AMER1KANSK T0P KVAUTET 

F0RHANDLER S0GES 
ENEIMPORT0R: 

HEXAS0FT - RINGSTEDVEJ 16 - DK-4440 M0RK0V - TLF.: 03-474122 



50 




COMMODORE 128. 

COMPUTEREN DU KAN VOKSE MED. 




5 w 

V ■ * 




Behov !or terdigheder er noget, der skitter. 
Dertor har vi udviklet en computer, der 
kan voKse med opgaven. Commodore 128. 
Alsidighed er nsgteordet. 

Commodore 128 kan benytte st megei 
vaneret prograrnudvalg - Ira spil og 
undervisning til avancerede torretnlngs- og 
adminisbationsprogrammer. Oerfor er 
Cooimodore 128 ideal bade for begynderen, 
dsn avancerede hjemmabruger og mindre 
virksomheder 

3 computers i en 

Commodore 128 or '3 compulere i 6nT 
Den kan arbejde luldstandlg som verdens 
mest kobte computer, Commodore 64. 
Og bruge dot samme programudvalg • 
verdens sttHBte. Nar den arbejder som "1 28" 
er den en kraftig computer med stor hukom- 
melse, avancerel sptog og eminent grank. 
Defle goi detmullgt al arbejde med bruger- 
venilige fEfdigpiogrammersom f.eks. 
lekslbehandlin^5syslemel SUPERSCRIPT, 
Sarnlioig giver den virKeMg slore muligheder 
lor den dygtige programmer Endellg kan 
Cornmooore 128 arbejde sorn en professionel 
CP/M torretntngscomputer. Her far du 
adgang til det sterste itdvatg at picrfessonelie 
torretningsprogrammer - i de mest udbredte 
diskette for mater 

Valgt til den bedste computer I USA. 

Denne alsidighed gor, a( du • bade hvafl 
angar behov og kunnen - kan vokse sam- 
men med Commodore 128. 

Princippet er ikke set for I USA bar edb- 
eksnerter vardsat det sa meget. at de 
har valgt Commodore 128 til den suver a?it 
beffste i sin Masse. 



Commodore 

Fordi fremtiden forlsengst 
erbegyndt. 




1DS8 
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F0RSTE-BOGEN 



Bogen, d9r g£r lEengere end manualen. 
Alt puttes Ind med teskeer. Du far ingen 
chancer for at lave fejl. Afslutter med en 
grundig gennemgang af 
kartoteksprogram, med 
alle tilhorende rutiner 



169,- 



TIPS & TRICKS 



En guidgruDe 'or brugere af Commodore 
128. En bog. der er sprasngfyldt med 
rutiner og eksempler. Med denne bog 
kan du gore ting, som end* 
ikke Commodore I Arhu. 
havde Iroet muligt 



248,- 



PEEKS & POKES 



Bogen afdaak ker de skjulte talenter og 
specioliter. som Commodore 128 bsid- 
der. ligesom den indeholder et idle kursus 
i maskinkode med Z80 og 
8502, for den, der vil lave 
de smarte rutiner selv 



199,- 



INTERN 

BIBELEN I samlingen. Fortaaller allow 
de enkelte chip, benbelEegning. I/O 

porta, reglstre. KERNAL. TOKEN. ZERO 
PAGE, Z 80 ROM 4- et hav af andre ting, 
bl.a. on grundig gennemgang af MMU 
(Memory-Management -Unit) 
og hvorledes. der skiftes 
mellem de 2 styre- 
systemer 



348,- 



FLOPPY BOGEN 

1541 -1570/ 1S71 

Giver et glimrende indblik i diskettesta- 
tlonens virkemade med anvisninger p&. 
hvordan man manipulerer med BAM og 
DOS for at udnytte statlonen 100%. 
Komplet gennemgang af ROM. med 
kommentarer. Af Indhold kan yderhgere 
ricBvnes" Kopibeskyttelse. 

BLOCK-HEAD & WRITE. */V|X ■ 
REL & SEO filer m. m ^*J\J) 



HOLS J EBRD BIBLIOTEK 
ihrumrrtr mti 
KJRKESTRmE' 11 
7500 HOLSTEBRO 




Amstrad 



F0RSTE-BOGEN 



Bogen, der gar laengere end manualen. 
Alt puttes ind med teskeer. Du far mgen 
chancer for at lave fejl. Afslutter med en 
grundig gennemgang af 
kartoteksprogram, med 
alle tilhorondo rutiner 



169,- 



TIPS & TRICKS 

GRAFIK. 3D-GRAFIK. MENUGENERA- 
RATOR. BESKYTTELSE AF PROGRAM- 
MER. SOFT SCROLL, VAR IABELDUMP 
er blot nogie af de ting, der belyses 
i denne bog. Kaldden 
blot tryllekunstnerens 
opsiagsbog 



PEEKS & POKES 

En let indforing I maskinsprogets ver- 
den. Af indholdet kan naavnes: BANK- 
SWITCHING, ROM udlaasning, Garbage 
Collection. Adresserings- 
rnuligheder, BASIC 
interrupt m.v. 



*00$ 

INTERN 

FLOPPYBOGEN 

HARDWARE-UDVIDELSE 

MASKINSPROG 




Atari ST 




TIPS & TRICKS ST 

Indhold: HARDCOPY I FARVER.VDISYS-KOMMAN- 
DOEN. RAM-DISK, PRINTER-SPOOL, 
Cog M MASKINSPROG, CMM EMULA- ' 
TOR og meget meget mere 



248,- 




NORDIC COMPUTER SOFTWARE 
POSTBOX 105 • DK 6950 RIMGK0BING 



